Imports DBase.MySql
Namespace MyDBase
Partial Public Class GloukDB
Inherits DBContext

Public Sub New(ByVal CnnString As String, DBStructure As DBStructureBase)
MyBase.New(CnnString, DBStructure)
Me.DBName = "Glouk"
End Sub
Private _TAB As helper.tab
Public ReadOnly Property TAB() As helper.tab
Get
If _TAB Is Nothing Then
_TAB = New helper.tab(Me)
End If
Return _TAB
End Get
End Property

Private _VIEW As helper.view
Public ReadOnly Property VIEW() As helper.view
Get
If _VIEW Is Nothing Then
_VIEW = New helper.view(me)
End If
Return _VIEW
End Get
End Property

Public Function GetBuildQuery(Of r As {New, Class})() As BuildQuery(Of r)
Return New BuildQuery(Of r)(Me)
End Function
Partial Class helper

Public Class tab
Private db As DBase.MySql.DBContext
Public Sub New(db As DBase.MySql.DBContext)
Me.db = db
End Sub

Public ReadOnly Property _Account_Link() As BuildQuery(Of _Account_Link)
Get
Return New BuildQuery(Of _Account_Link)(db)
End Get
End Property

Public ReadOnly Property _Account_Post() As BuildQuery(Of _Account_Post)
Get
Return New BuildQuery(Of _Account_Post)(db)
End Get
End Property

Public ReadOnly Property _Query_Account() As BuildQuery(Of _Query_Account)
Get
Return New BuildQuery(Of _Query_Account)(db)
End Get
End Property

Public ReadOnly Property _Query_Post() As BuildQuery(Of _Query_Post)
Get
Return New BuildQuery(Of _Query_Post)(db)
End Get
End Property

Public ReadOnly Property _Trend() As BuildQuery(Of _Trend)
Get
Return New BuildQuery(Of _Trend)(db)
End Get
End Property

Public ReadOnly Property Account() As BuildQuery(Of Account)
Get
Return New BuildQuery(Of Account)(db)
End Get
End Property

Public ReadOnly Property Account_Add_Info() As BuildQuery(Of Account_Add_Info)
Get
Return New BuildQuery(Of Account_Add_Info)(db)
End Get
End Property

Public ReadOnly Property Account_Auth() As BuildQuery(Of Account_Auth)
Get
Return New BuildQuery(Of Account_Auth)(db)
End Get
End Property

Public ReadOnly Property Account_Filter() As BuildQuery(Of Account_Filter)
Get
Return New BuildQuery(Of Account_Filter)(db)
End Get
End Property

Public ReadOnly Property Account_Klout() As BuildQuery(Of Account_Klout)
Get
Return New BuildQuery(Of Account_Klout)(db)
End Get
End Property

Public ReadOnly Property Account_Option() As BuildQuery(Of Account_Option)
Get
Return New BuildQuery(Of Account_Option)(db)
End Get
End Property

Public ReadOnly Property Account_Update() As BuildQuery(Of Account_Update)
Get
Return New BuildQuery(Of Account_Update)(db)
End Get
End Property

Public ReadOnly Property Alert() As BuildQuery(Of Alert)
Get
Return New BuildQuery(Of Alert)(db)
End Get
End Property

Public ReadOnly Property Archive_Data() As BuildQuery(Of Archive_Data)
Get
Return New BuildQuery(Of Archive_Data)(db)
End Get
End Property

Public ReadOnly Property Archive_Simil_Text() As BuildQuery(Of Archive_Simil_Text)
Get
Return New BuildQuery(Of Archive_Simil_Text)(db)
End Get
End Property

Public ReadOnly Property Auto_Follow_Account() As BuildQuery(Of Auto_Follow_Account)
Get
Return New BuildQuery(Of Auto_Follow_Account)(db)
End Get
End Property

Public ReadOnly Property Auto_Follow_Profile() As BuildQuery(Of Auto_Follow_Profile)
Get
Return New BuildQuery(Of Auto_Follow_Profile)(db)
End Get
End Property

Public ReadOnly Property Auto_Follow_Query() As BuildQuery(Of Auto_Follow_Query)
Get
Return New BuildQuery(Of Auto_Follow_Query)(db)
End Get
End Property

Public ReadOnly Property Categorize() As BuildQuery(Of Categorize)
Get
Return New BuildQuery(Of Categorize)(db)
End Get
End Property

Public ReadOnly Property Categorize_Account() As BuildQuery(Of Categorize_Account)
Get
Return New BuildQuery(Of Categorize_Account)(db)
End Get
End Property

Public ReadOnly Property Categorize_Follower() As BuildQuery(Of Categorize_Follower)
Get
Return New BuildQuery(Of Categorize_Follower)(db)
End Get
End Property

Public ReadOnly Property Dictionary_Link_It() As BuildQuery(Of Dictionary_Link_It)
Get
Return New BuildQuery(Of Dictionary_Link_It)(db)
End Get
End Property

Public ReadOnly Property Favorite_Post() As BuildQuery(Of Favorite_Post)
Get
Return New BuildQuery(Of Favorite_Post)(db)
End Get
End Property

Public ReadOnly Property Feedrss() As BuildQuery(Of Feedrss)
Get
Return New BuildQuery(Of Feedrss)(db)
End Get
End Property

Public ReadOnly Property Feedrss_Item() As BuildQuery(Of Feedrss_Item)
Get
Return New BuildQuery(Of Feedrss_Item)(db)
End Get
End Property

Public ReadOnly Property Folder() As BuildQuery(Of Folder)
Get
Return New BuildQuery(Of Folder)(db)
End Get
End Property

Public ReadOnly Property Follower_Analysis() As BuildQuery(Of Follower_Analysis)
Get
Return New BuildQuery(Of Follower_Analysis)(db)
End Get
End Property

Public ReadOnly Property Gender_Db_1() As BuildQuery(Of Gender_Db_1)
Get
Return New BuildQuery(Of Gender_Db_1)(db)
End Get
End Property

Public ReadOnly Property Gender_Db_2() As BuildQuery(Of Gender_Db_2)
Get
Return New BuildQuery(Of Gender_Db_2)(db)
End Get
End Property

Public ReadOnly Property Gender_Name() As BuildQuery(Of Gender_Name)
Get
Return New BuildQuery(Of Gender_Name)(db)
End Get
End Property

Public ReadOnly Property Gender_Name_Copy() As BuildQuery(Of Gender_Name_Copy)
Get
Return New BuildQuery(Of Gender_Name_Copy)(db)
End Get
End Property

Public ReadOnly Property Group_Account() As BuildQuery(Of Group_Account)
Get
Return New BuildQuery(Of Group_Account)(db)
End Get
End Property

Public ReadOnly Property Group_Query() As BuildQuery(Of Group_Query)
Get
Return New BuildQuery(Of Group_Query)(db)
End Get
End Property

Public ReadOnly Property Language() As BuildQuery(Of Language)
Get
Return New BuildQuery(Of Language)(db)
End Get
End Property

Public ReadOnly Property Language_Copy() As BuildQuery(Of Language_Copy)
Get
Return New BuildQuery(Of Language_Copy)(db)
End Get
End Property

Public ReadOnly Property Language_Copy1() As BuildQuery(Of Language_Copy1)
Get
Return New BuildQuery(Of Language_Copy1)(db)
End Get
End Property

Public ReadOnly Property Link() As BuildQuery(Of Link)
Get
Return New BuildQuery(Of Link)(db)
End Get
End Property

Public ReadOnly Property Link_Post() As BuildQuery(Of Link_Post)
Get
Return New BuildQuery(Of Link_Post)(db)
End Get
End Property

Public ReadOnly Property List() As BuildQuery(Of List)
Get
Return New BuildQuery(Of List)(db)
End Get
End Property

Public ReadOnly Property List_Account() As BuildQuery(Of List_Account)
Get
Return New BuildQuery(Of List_Account)(db)
End Get
End Property

Public ReadOnly Property Listen_Query() As BuildQuery(Of Listen_Query)
Get
Return New BuildQuery(Of Listen_Query)(db)
End Get
End Property

Public ReadOnly Property Media() As BuildQuery(Of Media)
Get
Return New BuildQuery(Of Media)(db)
End Get
End Property

Public ReadOnly Property Message_Post() As BuildQuery(Of Message_Post)
Get
Return New BuildQuery(Of Message_Post)(db)
End Get
End Property

Public ReadOnly Property Network() As BuildQuery(Of Network)
Get
Return New BuildQuery(Of Network)(db)
End Get
End Property

Public ReadOnly Property Place() As BuildQuery(Of Place)
Get
Return New BuildQuery(Of Place)(db)
End Get
End Property

Public ReadOnly Property Place_Country() As BuildQuery(Of Place_Country)
Get
Return New BuildQuery(Of Place_Country)(db)
End Get
End Property

Public ReadOnly Property Plan() As BuildQuery(Of Plan)
Get
Return New BuildQuery(Of Plan)(db)
End Get
End Property

Public ReadOnly Property Private_Post() As BuildQuery(Of Private_Post)
Get
Return New BuildQuery(Of Private_Post)(db)
End Get
End Property

Public ReadOnly Property Private_Post_Last() As BuildQuery(Of Private_Post_Last)
Get
Return New BuildQuery(Of Private_Post_Last)(db)
End Get
End Property

Public ReadOnly Property Private_Post_Last_Copy() As BuildQuery(Of Private_Post_Last_Copy)
Get
Return New BuildQuery(Of Private_Post_Last_Copy)(db)
End Get
End Property

Public ReadOnly Property Profile() As BuildQuery(Of Profile)
Get
Return New BuildQuery(Of Profile)(db)
End Get
End Property

Public ReadOnly Property Promo() As BuildQuery(Of Promo)
Get
Return New BuildQuery(Of Promo)(db)
End Get
End Property

Public ReadOnly Property Query() As BuildQuery(Of Query)
Get
Return New BuildQuery(Of Query)(db)
End Get
End Property

Public ReadOnly Property Schedule_Task() As BuildQuery(Of Schedule_Task)
Get
Return New BuildQuery(Of Schedule_Task)(db)
End Get
End Property

Public ReadOnly Property Send_Mail() As BuildQuery(Of Send_Mail)
Get
Return New BuildQuery(Of Send_Mail)(db)
End Get
End Property

Public ReadOnly Property Share_Detail() As BuildQuery(Of Share_Detail)
Get
Return New BuildQuery(Of Share_Detail)(db)
End Get
End Property

Public ReadOnly Property Share_Post() As BuildQuery(Of Share_Post)
Get
Return New BuildQuery(Of Share_Post)(db)
End Get
End Property

Public ReadOnly Property Task_Post() As BuildQuery(Of Task_Post)
Get
Return New BuildQuery(Of Task_Post)(db)
End Get
End Property

Public ReadOnly Property Task_Scheduler() As BuildQuery(Of Task_Scheduler)
Get
Return New BuildQuery(Of Task_Scheduler)(db)
End Get
End Property

Public ReadOnly Property Task_Send() As BuildQuery(Of Task_Send)
Get
Return New BuildQuery(Of Task_Send)(db)
End Get
End Property

Public ReadOnly Property Time_Zone() As BuildQuery(Of Time_Zone)
Get
Return New BuildQuery(Of Time_Zone)(db)
End Get
End Property

Public ReadOnly Property User() As BuildQuery(Of User)
Get
Return New BuildQuery(Of User)(db)
End Get
End Property

Public ReadOnly Property User_Account() As BuildQuery(Of User_Account)
Get
Return New BuildQuery(Of User_Account)(db)
End Get
End Property

Public ReadOnly Property User_Alert() As BuildQuery(Of User_Alert)
Get
Return New BuildQuery(Of User_Alert)(db)
End Get
End Property

Public ReadOnly Property User_Option() As BuildQuery(Of User_Option)
Get
Return New BuildQuery(Of User_Option)(db)
End Get
End Property

Public ReadOnly Property User_Order() As BuildQuery(Of User_Order)
Get
Return New BuildQuery(Of User_Order)(db)
End Get
End Property

Public ReadOnly Property User_Plan() As BuildQuery(Of User_Plan)
Get
Return New BuildQuery(Of User_Plan)(db)
End Get
End Property

Public ReadOnly Property User_Promo() As BuildQuery(Of User_Promo)
Get
Return New BuildQuery(Of User_Promo)(db)
End Get
End Property

Public ReadOnly Property Zzz__Query_Account() As BuildQuery(Of Zzz__Query_Account)
Get
Return New BuildQuery(Of Zzz__Query_Account)(db)
End Get
End Property

Public ReadOnly Property Zzz_Account_Add_Info() As BuildQuery(Of Zzz_Account_Add_Info)
Get
Return New BuildQuery(Of Zzz_Account_Add_Info)(db)
End Get
End Property

Public ReadOnly Property Zzz_Account_Elaboration() As BuildQuery(Of Zzz_Account_Elaboration)
Get
Return New BuildQuery(Of Zzz_Account_Elaboration)(db)
End Get
End Property

Public ReadOnly Property Zzz_Account_Link() As BuildQuery(Of Zzz_Account_Link)
Get
Return New BuildQuery(Of Zzz_Account_Link)(db)
End Get
End Property

Public ReadOnly Property Zzz_Account_Update() As BuildQuery(Of Zzz_Account_Update)
Get
Return New BuildQuery(Of Zzz_Account_Update)(db)
End Get
End Property

Public ReadOnly Property Zzz_Alert() As BuildQuery(Of Zzz_Alert)
Get
Return New BuildQuery(Of Zzz_Alert)(db)
End Get
End Property

Public ReadOnly Property Zzz_Auto_Follow_Account() As BuildQuery(Of Zzz_Auto_Follow_Account)
Get
Return New BuildQuery(Of Zzz_Auto_Follow_Account)(db)
End Get
End Property

Public ReadOnly Property Zzz_Query_Account() As BuildQuery(Of Zzz_Query_Account)
Get
Return New BuildQuery(Of Zzz_Query_Account)(db)
End Get
End Property

Public ReadOnly Property Zzz_Query_Post() As BuildQuery(Of Zzz_Query_Post)
Get
Return New BuildQuery(Of Zzz_Query_Post)(db)
End Get
End Property

Public ReadOnly Property Zzz_Share_Post() As BuildQuery(Of Zzz_Share_Post)
Get
Return New BuildQuery(Of Zzz_Share_Post)(db)
End Get
End Property

Public ReadOnly Property Zzz_Trend() As BuildQuery(Of Zzz_Trend)
Get
Return New BuildQuery(Of Zzz_Trend)(db)
End Get
End Property

Public ReadOnly Property Zzz_User() As BuildQuery(Of Zzz_User)
Get
Return New BuildQuery(Of Zzz_User)(db)
End Get
End Property

Public ReadOnly Property Zzz_User_Account() As BuildQuery(Of Zzz_User_Account)
Get
Return New BuildQuery(Of Zzz_User_Account)(db)
End Get
End Property

End Class

Partial Class view
Private db As GloukDB
Public Sub New(db As GloukDB)
Me.db = db
End Sub

End Class

Partial Class rel(Of Tresult As {New, Class})
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Private __Account_Link As helper._Account_Link
Public ReadOnly Property _Account_Link() As helper._Account_Link
Get
If __Account_Link Is Nothing Then
__Account_Link = New helper._Account_Link(q)
End If
Return __Account_Link
End Get
End Property


Private __Account_Post As helper._Account_Post
Public ReadOnly Property _Account_Post() As helper._Account_Post
Get
If __Account_Post Is Nothing Then
__Account_Post = New helper._Account_Post(q)
End If
Return __Account_Post
End Get
End Property


Private __Query_Account As helper._Query_Account
Public ReadOnly Property _Query_Account() As helper._Query_Account
Get
If __Query_Account Is Nothing Then
__Query_Account = New helper._Query_Account(q)
End If
Return __Query_Account
End Get
End Property


Private __Query_Post As helper._Query_Post
Public ReadOnly Property _Query_Post() As helper._Query_Post
Get
If __Query_Post Is Nothing Then
__Query_Post = New helper._Query_Post(q)
End If
Return __Query_Post
End Get
End Property


Private __Trend As helper._Trend
Public ReadOnly Property _Trend() As helper._Trend
Get
If __Trend Is Nothing Then
__Trend = New helper._Trend(q)
End If
Return __Trend
End Get
End Property


Private _Account As helper.Account
Public ReadOnly Property Account() As helper.Account
Get
If _Account Is Nothing Then
_Account = New helper.Account(q)
End If
Return _Account
End Get
End Property


Private _Account_Add_Info As helper.Account_Add_Info
Public ReadOnly Property Account_Add_Info() As helper.Account_Add_Info
Get
If _Account_Add_Info Is Nothing Then
_Account_Add_Info = New helper.Account_Add_Info(q)
End If
Return _Account_Add_Info
End Get
End Property


Private _Account_Auth As helper.Account_Auth
Public ReadOnly Property Account_Auth() As helper.Account_Auth
Get
If _Account_Auth Is Nothing Then
_Account_Auth = New helper.Account_Auth(q)
End If
Return _Account_Auth
End Get
End Property


Private _Account_Filter As helper.Account_Filter
Public ReadOnly Property Account_Filter() As helper.Account_Filter
Get
If _Account_Filter Is Nothing Then
_Account_Filter = New helper.Account_Filter(q)
End If
Return _Account_Filter
End Get
End Property


Private _Account_Klout As helper.Account_Klout
Public ReadOnly Property Account_Klout() As helper.Account_Klout
Get
If _Account_Klout Is Nothing Then
_Account_Klout = New helper.Account_Klout(q)
End If
Return _Account_Klout
End Get
End Property


Private _Account_Option As helper.Account_Option
Public ReadOnly Property Account_Option() As helper.Account_Option
Get
If _Account_Option Is Nothing Then
_Account_Option = New helper.Account_Option(q)
End If
Return _Account_Option
End Get
End Property


Private _Account_Update As helper.Account_Update
Public ReadOnly Property Account_Update() As helper.Account_Update
Get
If _Account_Update Is Nothing Then
_Account_Update = New helper.Account_Update(q)
End If
Return _Account_Update
End Get
End Property


Private _Alert As helper.Alert
Public ReadOnly Property Alert() As helper.Alert
Get
If _Alert Is Nothing Then
_Alert = New helper.Alert(q)
End If
Return _Alert
End Get
End Property


Private _Archive_Data As helper.Archive_Data
Public ReadOnly Property Archive_Data() As helper.Archive_Data
Get
If _Archive_Data Is Nothing Then
_Archive_Data = New helper.Archive_Data(q)
End If
Return _Archive_Data
End Get
End Property


Private _Archive_Simil_Text As helper.Archive_Simil_Text
Public ReadOnly Property Archive_Simil_Text() As helper.Archive_Simil_Text
Get
If _Archive_Simil_Text Is Nothing Then
_Archive_Simil_Text = New helper.Archive_Simil_Text(q)
End If
Return _Archive_Simil_Text
End Get
End Property


Private _Auto_Follow_Account As helper.Auto_Follow_Account
Public ReadOnly Property Auto_Follow_Account() As helper.Auto_Follow_Account
Get
If _Auto_Follow_Account Is Nothing Then
_Auto_Follow_Account = New helper.Auto_Follow_Account(q)
End If
Return _Auto_Follow_Account
End Get
End Property


Private _Auto_Follow_Profile As helper.Auto_Follow_Profile
Public ReadOnly Property Auto_Follow_Profile() As helper.Auto_Follow_Profile
Get
If _Auto_Follow_Profile Is Nothing Then
_Auto_Follow_Profile = New helper.Auto_Follow_Profile(q)
End If
Return _Auto_Follow_Profile
End Get
End Property


Private _Auto_Follow_Query As helper.Auto_Follow_Query
Public ReadOnly Property Auto_Follow_Query() As helper.Auto_Follow_Query
Get
If _Auto_Follow_Query Is Nothing Then
_Auto_Follow_Query = New helper.Auto_Follow_Query(q)
End If
Return _Auto_Follow_Query
End Get
End Property


Private _Categorize As helper.Categorize
Public ReadOnly Property Categorize() As helper.Categorize
Get
If _Categorize Is Nothing Then
_Categorize = New helper.Categorize(q)
End If
Return _Categorize
End Get
End Property


Private _Categorize_Account As helper.Categorize_Account
Public ReadOnly Property Categorize_Account() As helper.Categorize_Account
Get
If _Categorize_Account Is Nothing Then
_Categorize_Account = New helper.Categorize_Account(q)
End If
Return _Categorize_Account
End Get
End Property


Private _Categorize_Follower As helper.Categorize_Follower
Public ReadOnly Property Categorize_Follower() As helper.Categorize_Follower
Get
If _Categorize_Follower Is Nothing Then
_Categorize_Follower = New helper.Categorize_Follower(q)
End If
Return _Categorize_Follower
End Get
End Property


Private _Dictionary_Link_It As helper.Dictionary_Link_It
Public ReadOnly Property Dictionary_Link_It() As helper.Dictionary_Link_It
Get
If _Dictionary_Link_It Is Nothing Then
_Dictionary_Link_It = New helper.Dictionary_Link_It(q)
End If
Return _Dictionary_Link_It
End Get
End Property


Private _Favorite_Post As helper.Favorite_Post
Public ReadOnly Property Favorite_Post() As helper.Favorite_Post
Get
If _Favorite_Post Is Nothing Then
_Favorite_Post = New helper.Favorite_Post(q)
End If
Return _Favorite_Post
End Get
End Property


Private _Feedrss As helper.Feedrss
Public ReadOnly Property Feedrss() As helper.Feedrss
Get
If _Feedrss Is Nothing Then
_Feedrss = New helper.Feedrss(q)
End If
Return _Feedrss
End Get
End Property


Private _Feedrss_Item As helper.Feedrss_Item
Public ReadOnly Property Feedrss_Item() As helper.Feedrss_Item
Get
If _Feedrss_Item Is Nothing Then
_Feedrss_Item = New helper.Feedrss_Item(q)
End If
Return _Feedrss_Item
End Get
End Property


Private _Folder As helper.Folder
Public ReadOnly Property Folder() As helper.Folder
Get
If _Folder Is Nothing Then
_Folder = New helper.Folder(q)
End If
Return _Folder
End Get
End Property


Private _Follower_Analysis As helper.Follower_Analysis
Public ReadOnly Property Follower_Analysis() As helper.Follower_Analysis
Get
If _Follower_Analysis Is Nothing Then
_Follower_Analysis = New helper.Follower_Analysis(q)
End If
Return _Follower_Analysis
End Get
End Property


Private _Gender_Db_1 As helper.Gender_Db_1
Public ReadOnly Property Gender_Db_1() As helper.Gender_Db_1
Get
If _Gender_Db_1 Is Nothing Then
_Gender_Db_1 = New helper.Gender_Db_1(q)
End If
Return _Gender_Db_1
End Get
End Property


Private _Gender_Db_2 As helper.Gender_Db_2
Public ReadOnly Property Gender_Db_2() As helper.Gender_Db_2
Get
If _Gender_Db_2 Is Nothing Then
_Gender_Db_2 = New helper.Gender_Db_2(q)
End If
Return _Gender_Db_2
End Get
End Property


Private _Gender_Name As helper.Gender_Name
Public ReadOnly Property Gender_Name() As helper.Gender_Name
Get
If _Gender_Name Is Nothing Then
_Gender_Name = New helper.Gender_Name(q)
End If
Return _Gender_Name
End Get
End Property


Private _Gender_Name_Copy As helper.Gender_Name_Copy
Public ReadOnly Property Gender_Name_Copy() As helper.Gender_Name_Copy
Get
If _Gender_Name_Copy Is Nothing Then
_Gender_Name_Copy = New helper.Gender_Name_Copy(q)
End If
Return _Gender_Name_Copy
End Get
End Property


Private _Group_Account As helper.Group_Account
Public ReadOnly Property Group_Account() As helper.Group_Account
Get
If _Group_Account Is Nothing Then
_Group_Account = New helper.Group_Account(q)
End If
Return _Group_Account
End Get
End Property


Private _Group_Query As helper.Group_Query
Public ReadOnly Property Group_Query() As helper.Group_Query
Get
If _Group_Query Is Nothing Then
_Group_Query = New helper.Group_Query(q)
End If
Return _Group_Query
End Get
End Property


Private _Language As helper.Language
Public ReadOnly Property Language() As helper.Language
Get
If _Language Is Nothing Then
_Language = New helper.Language(q)
End If
Return _Language
End Get
End Property


Private _Language_Copy As helper.Language_Copy
Public ReadOnly Property Language_Copy() As helper.Language_Copy
Get
If _Language_Copy Is Nothing Then
_Language_Copy = New helper.Language_Copy(q)
End If
Return _Language_Copy
End Get
End Property


Private _Language_Copy1 As helper.Language_Copy1
Public ReadOnly Property Language_Copy1() As helper.Language_Copy1
Get
If _Language_Copy1 Is Nothing Then
_Language_Copy1 = New helper.Language_Copy1(q)
End If
Return _Language_Copy1
End Get
End Property


Private _Link As helper.Link
Public ReadOnly Property Link() As helper.Link
Get
If _Link Is Nothing Then
_Link = New helper.Link(q)
End If
Return _Link
End Get
End Property


Private _Link_Post As helper.Link_Post
Public ReadOnly Property Link_Post() As helper.Link_Post
Get
If _Link_Post Is Nothing Then
_Link_Post = New helper.Link_Post(q)
End If
Return _Link_Post
End Get
End Property


Private _List As helper.List
Public ReadOnly Property List() As helper.List
Get
If _List Is Nothing Then
_List = New helper.List(q)
End If
Return _List
End Get
End Property


Private _List_Account As helper.List_Account
Public ReadOnly Property List_Account() As helper.List_Account
Get
If _List_Account Is Nothing Then
_List_Account = New helper.List_Account(q)
End If
Return _List_Account
End Get
End Property


Private _Listen_Query As helper.Listen_Query
Public ReadOnly Property Listen_Query() As helper.Listen_Query
Get
If _Listen_Query Is Nothing Then
_Listen_Query = New helper.Listen_Query(q)
End If
Return _Listen_Query
End Get
End Property


Private _Media As helper.Media
Public ReadOnly Property Media() As helper.Media
Get
If _Media Is Nothing Then
_Media = New helper.Media(q)
End If
Return _Media
End Get
End Property


Private _Message_Post As helper.Message_Post
Public ReadOnly Property Message_Post() As helper.Message_Post
Get
If _Message_Post Is Nothing Then
_Message_Post = New helper.Message_Post(q)
End If
Return _Message_Post
End Get
End Property


Private _Network As helper.Network
Public ReadOnly Property Network() As helper.Network
Get
If _Network Is Nothing Then
_Network = New helper.Network(q)
End If
Return _Network
End Get
End Property


Private _Place As helper.Place
Public ReadOnly Property Place() As helper.Place
Get
If _Place Is Nothing Then
_Place = New helper.Place(q)
End If
Return _Place
End Get
End Property


Private _Place_Country As helper.Place_Country
Public ReadOnly Property Place_Country() As helper.Place_Country
Get
If _Place_Country Is Nothing Then
_Place_Country = New helper.Place_Country(q)
End If
Return _Place_Country
End Get
End Property


Private _Plan As helper.Plan
Public ReadOnly Property Plan() As helper.Plan
Get
If _Plan Is Nothing Then
_Plan = New helper.Plan(q)
End If
Return _Plan
End Get
End Property


Private _Private_Post As helper.Private_Post
Public ReadOnly Property Private_Post() As helper.Private_Post
Get
If _Private_Post Is Nothing Then
_Private_Post = New helper.Private_Post(q)
End If
Return _Private_Post
End Get
End Property


Private _Private_Post_Last As helper.Private_Post_Last
Public ReadOnly Property Private_Post_Last() As helper.Private_Post_Last
Get
If _Private_Post_Last Is Nothing Then
_Private_Post_Last = New helper.Private_Post_Last(q)
End If
Return _Private_Post_Last
End Get
End Property


Private _Private_Post_Last_Copy As helper.Private_Post_Last_Copy
Public ReadOnly Property Private_Post_Last_Copy() As helper.Private_Post_Last_Copy
Get
If _Private_Post_Last_Copy Is Nothing Then
_Private_Post_Last_Copy = New helper.Private_Post_Last_Copy(q)
End If
Return _Private_Post_Last_Copy
End Get
End Property


Private _Profile As helper.Profile
Public ReadOnly Property Profile() As helper.Profile
Get
If _Profile Is Nothing Then
_Profile = New helper.Profile(q)
End If
Return _Profile
End Get
End Property


Private _Promo As helper.Promo
Public ReadOnly Property Promo() As helper.Promo
Get
If _Promo Is Nothing Then
_Promo = New helper.Promo(q)
End If
Return _Promo
End Get
End Property


Private _Query As helper.Query
Public ReadOnly Property Query() As helper.Query
Get
If _Query Is Nothing Then
_Query = New helper.Query(q)
End If
Return _Query
End Get
End Property


Private _Schedule_Task As helper.Schedule_Task
Public ReadOnly Property Schedule_Task() As helper.Schedule_Task
Get
If _Schedule_Task Is Nothing Then
_Schedule_Task = New helper.Schedule_Task(q)
End If
Return _Schedule_Task
End Get
End Property


Private _Send_Mail As helper.Send_Mail
Public ReadOnly Property Send_Mail() As helper.Send_Mail
Get
If _Send_Mail Is Nothing Then
_Send_Mail = New helper.Send_Mail(q)
End If
Return _Send_Mail
End Get
End Property


Private _Share_Detail As helper.Share_Detail
Public ReadOnly Property Share_Detail() As helper.Share_Detail
Get
If _Share_Detail Is Nothing Then
_Share_Detail = New helper.Share_Detail(q)
End If
Return _Share_Detail
End Get
End Property


Private _Share_Post As helper.Share_Post
Public ReadOnly Property Share_Post() As helper.Share_Post
Get
If _Share_Post Is Nothing Then
_Share_Post = New helper.Share_Post(q)
End If
Return _Share_Post
End Get
End Property


Private _Task_Post As helper.Task_Post
Public ReadOnly Property Task_Post() As helper.Task_Post
Get
If _Task_Post Is Nothing Then
_Task_Post = New helper.Task_Post(q)
End If
Return _Task_Post
End Get
End Property


Private _Task_Scheduler As helper.Task_Scheduler
Public ReadOnly Property Task_Scheduler() As helper.Task_Scheduler
Get
If _Task_Scheduler Is Nothing Then
_Task_Scheduler = New helper.Task_Scheduler(q)
End If
Return _Task_Scheduler
End Get
End Property


Private _Task_Send As helper.Task_Send
Public ReadOnly Property Task_Send() As helper.Task_Send
Get
If _Task_Send Is Nothing Then
_Task_Send = New helper.Task_Send(q)
End If
Return _Task_Send
End Get
End Property


Private _Time_Zone As helper.Time_Zone
Public ReadOnly Property Time_Zone() As helper.Time_Zone
Get
If _Time_Zone Is Nothing Then
_Time_Zone = New helper.Time_Zone(q)
End If
Return _Time_Zone
End Get
End Property


Private _User As helper.User
Public ReadOnly Property User() As helper.User
Get
If _User Is Nothing Then
_User = New helper.User(q)
End If
Return _User
End Get
End Property


Private _User_Account As helper.User_Account
Public ReadOnly Property User_Account() As helper.User_Account
Get
If _User_Account Is Nothing Then
_User_Account = New helper.User_Account(q)
End If
Return _User_Account
End Get
End Property


Private _User_Alert As helper.User_Alert
Public ReadOnly Property User_Alert() As helper.User_Alert
Get
If _User_Alert Is Nothing Then
_User_Alert = New helper.User_Alert(q)
End If
Return _User_Alert
End Get
End Property


Private _User_Option As helper.User_Option
Public ReadOnly Property User_Option() As helper.User_Option
Get
If _User_Option Is Nothing Then
_User_Option = New helper.User_Option(q)
End If
Return _User_Option
End Get
End Property


Private _User_Order As helper.User_Order
Public ReadOnly Property User_Order() As helper.User_Order
Get
If _User_Order Is Nothing Then
_User_Order = New helper.User_Order(q)
End If
Return _User_Order
End Get
End Property


Private _User_Plan As helper.User_Plan
Public ReadOnly Property User_Plan() As helper.User_Plan
Get
If _User_Plan Is Nothing Then
_User_Plan = New helper.User_Plan(q)
End If
Return _User_Plan
End Get
End Property


Private _User_Promo As helper.User_Promo
Public ReadOnly Property User_Promo() As helper.User_Promo
Get
If _User_Promo Is Nothing Then
_User_Promo = New helper.User_Promo(q)
End If
Return _User_Promo
End Get
End Property


Private _Zzz__Query_Account As helper.Zzz__Query_Account
Public ReadOnly Property Zzz__Query_Account() As helper.Zzz__Query_Account
Get
If _Zzz__Query_Account Is Nothing Then
_Zzz__Query_Account = New helper.Zzz__Query_Account(q)
End If
Return _Zzz__Query_Account
End Get
End Property


Private _Zzz_Account_Add_Info As helper.Zzz_Account_Add_Info
Public ReadOnly Property Zzz_Account_Add_Info() As helper.Zzz_Account_Add_Info
Get
If _Zzz_Account_Add_Info Is Nothing Then
_Zzz_Account_Add_Info = New helper.Zzz_Account_Add_Info(q)
End If
Return _Zzz_Account_Add_Info
End Get
End Property


Private _Zzz_Account_Elaboration As helper.Zzz_Account_Elaboration
Public ReadOnly Property Zzz_Account_Elaboration() As helper.Zzz_Account_Elaboration
Get
If _Zzz_Account_Elaboration Is Nothing Then
_Zzz_Account_Elaboration = New helper.Zzz_Account_Elaboration(q)
End If
Return _Zzz_Account_Elaboration
End Get
End Property


Private _Zzz_Account_Link As helper.Zzz_Account_Link
Public ReadOnly Property Zzz_Account_Link() As helper.Zzz_Account_Link
Get
If _Zzz_Account_Link Is Nothing Then
_Zzz_Account_Link = New helper.Zzz_Account_Link(q)
End If
Return _Zzz_Account_Link
End Get
End Property


Private _Zzz_Account_Update As helper.Zzz_Account_Update
Public ReadOnly Property Zzz_Account_Update() As helper.Zzz_Account_Update
Get
If _Zzz_Account_Update Is Nothing Then
_Zzz_Account_Update = New helper.Zzz_Account_Update(q)
End If
Return _Zzz_Account_Update
End Get
End Property


Private _Zzz_Alert As helper.Zzz_Alert
Public ReadOnly Property Zzz_Alert() As helper.Zzz_Alert
Get
If _Zzz_Alert Is Nothing Then
_Zzz_Alert = New helper.Zzz_Alert(q)
End If
Return _Zzz_Alert
End Get
End Property


Private _Zzz_Auto_Follow_Account As helper.Zzz_Auto_Follow_Account
Public ReadOnly Property Zzz_Auto_Follow_Account() As helper.Zzz_Auto_Follow_Account
Get
If _Zzz_Auto_Follow_Account Is Nothing Then
_Zzz_Auto_Follow_Account = New helper.Zzz_Auto_Follow_Account(q)
End If
Return _Zzz_Auto_Follow_Account
End Get
End Property


Private _Zzz_Query_Account As helper.Zzz_Query_Account
Public ReadOnly Property Zzz_Query_Account() As helper.Zzz_Query_Account
Get
If _Zzz_Query_Account Is Nothing Then
_Zzz_Query_Account = New helper.Zzz_Query_Account(q)
End If
Return _Zzz_Query_Account
End Get
End Property


Private _Zzz_Query_Post As helper.Zzz_Query_Post
Public ReadOnly Property Zzz_Query_Post() As helper.Zzz_Query_Post
Get
If _Zzz_Query_Post Is Nothing Then
_Zzz_Query_Post = New helper.Zzz_Query_Post(q)
End If
Return _Zzz_Query_Post
End Get
End Property


Private _Zzz_Share_Post As helper.Zzz_Share_Post
Public ReadOnly Property Zzz_Share_Post() As helper.Zzz_Share_Post
Get
If _Zzz_Share_Post Is Nothing Then
_Zzz_Share_Post = New helper.Zzz_Share_Post(q)
End If
Return _Zzz_Share_Post
End Get
End Property


Private _Zzz_Trend As helper.Zzz_Trend
Public ReadOnly Property Zzz_Trend() As helper.Zzz_Trend
Get
If _Zzz_Trend Is Nothing Then
_Zzz_Trend = New helper.Zzz_Trend(q)
End If
Return _Zzz_Trend
End Get
End Property


Private _Zzz_User As helper.Zzz_User
Public ReadOnly Property Zzz_User() As helper.Zzz_User
Get
If _Zzz_User Is Nothing Then
_Zzz_User = New helper.Zzz_User(q)
End If
Return _Zzz_User
End Get
End Property


Private _Zzz_User_Account As helper.Zzz_User_Account
Public ReadOnly Property Zzz_User_Account() As helper.Zzz_User_Account
Get
If _Zzz_User_Account Is Nothing Then
_Zzz_User_Account = New helper.Zzz_User_Account(q)
End If
Return _Zzz_User_Account
End Get
End Property


Public Class helper

Partial Public Class _Account_Link
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class _Account_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class _Query_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class _Query_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class _Trend
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Account_Add_Info
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Account_Auth
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Account_Filter
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Account_Klout
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Account_Option
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Account_Update
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Alert
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Archive_Data
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Archive_Simil_Text
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Auto_Follow_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Auto_Follow_Profile
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Auto_Follow_Query
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Categorize
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Categorize_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Categorize_Follower
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Dictionary_Link_It
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Favorite_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Feedrss
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Feedrss_Item
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Folder
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Follower_Analysis
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Gender_Db_1
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Gender_Db_2
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Gender_Name
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Gender_Name_Copy
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Group_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Group_Query
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Language
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Language_Copy
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Language_Copy1
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Link
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Link_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class List
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class List_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Listen_Query
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Media
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Message_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Network
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Place
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Place_Country
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Plan
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Private_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Private_Post_Last
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Private_Post_Last_Copy
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Profile
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Promo
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Query
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Schedule_Task
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Send_Mail
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Share_Detail
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Share_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Task_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Task_Scheduler
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Task_Send
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Time_Zone
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class User
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class User_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class User_Alert
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class User_Option
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class User_Order
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class User_Plan
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class User_Promo
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Zzz__Query_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Zzz_Account_Add_Info
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Zzz_Account_Elaboration
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Zzz_Account_Link
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Zzz_Account_Update
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Zzz_Alert
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Zzz_Auto_Follow_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Zzz_Query_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Zzz_Query_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Zzz_Share_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Zzz_Trend
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Zzz_User
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

Partial Public Class Zzz_User_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub
End Class

End Class

End Class

Partial Class by(Of Tresult As {New, Class})
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Private __Account_Link As helper._Account_Link
Public ReadOnly Property _Account_Link() As helper._Account_Link
Get
If __Account_Link Is Nothing Then
__Account_Link = New helper._Account_Link(q)
End If
Return __Account_Link
End Get
End Property


Private __Account_Post As helper._Account_Post
Public ReadOnly Property _Account_Post() As helper._Account_Post
Get
If __Account_Post Is Nothing Then
__Account_Post = New helper._Account_Post(q)
End If
Return __Account_Post
End Get
End Property


Private __Query_Account As helper._Query_Account
Public ReadOnly Property _Query_Account() As helper._Query_Account
Get
If __Query_Account Is Nothing Then
__Query_Account = New helper._Query_Account(q)
End If
Return __Query_Account
End Get
End Property


Private __Query_Post As helper._Query_Post
Public ReadOnly Property _Query_Post() As helper._Query_Post
Get
If __Query_Post Is Nothing Then
__Query_Post = New helper._Query_Post(q)
End If
Return __Query_Post
End Get
End Property


Private __Trend As helper._Trend
Public ReadOnly Property _Trend() As helper._Trend
Get
If __Trend Is Nothing Then
__Trend = New helper._Trend(q)
End If
Return __Trend
End Get
End Property


Private _Account As helper.Account
Public ReadOnly Property Account() As helper.Account
Get
If _Account Is Nothing Then
_Account = New helper.Account(q)
End If
Return _Account
End Get
End Property


Private _Account_Add_Info As helper.Account_Add_Info
Public ReadOnly Property Account_Add_Info() As helper.Account_Add_Info
Get
If _Account_Add_Info Is Nothing Then
_Account_Add_Info = New helper.Account_Add_Info(q)
End If
Return _Account_Add_Info
End Get
End Property


Private _Account_Auth As helper.Account_Auth
Public ReadOnly Property Account_Auth() As helper.Account_Auth
Get
If _Account_Auth Is Nothing Then
_Account_Auth = New helper.Account_Auth(q)
End If
Return _Account_Auth
End Get
End Property


Private _Account_Filter As helper.Account_Filter
Public ReadOnly Property Account_Filter() As helper.Account_Filter
Get
If _Account_Filter Is Nothing Then
_Account_Filter = New helper.Account_Filter(q)
End If
Return _Account_Filter
End Get
End Property


Private _Account_Klout As helper.Account_Klout
Public ReadOnly Property Account_Klout() As helper.Account_Klout
Get
If _Account_Klout Is Nothing Then
_Account_Klout = New helper.Account_Klout(q)
End If
Return _Account_Klout
End Get
End Property


Private _Account_Option As helper.Account_Option
Public ReadOnly Property Account_Option() As helper.Account_Option
Get
If _Account_Option Is Nothing Then
_Account_Option = New helper.Account_Option(q)
End If
Return _Account_Option
End Get
End Property


Private _Account_Update As helper.Account_Update
Public ReadOnly Property Account_Update() As helper.Account_Update
Get
If _Account_Update Is Nothing Then
_Account_Update = New helper.Account_Update(q)
End If
Return _Account_Update
End Get
End Property


Private _Alert As helper.Alert
Public ReadOnly Property Alert() As helper.Alert
Get
If _Alert Is Nothing Then
_Alert = New helper.Alert(q)
End If
Return _Alert
End Get
End Property


Private _Archive_Data As helper.Archive_Data
Public ReadOnly Property Archive_Data() As helper.Archive_Data
Get
If _Archive_Data Is Nothing Then
_Archive_Data = New helper.Archive_Data(q)
End If
Return _Archive_Data
End Get
End Property


Private _Archive_Simil_Text As helper.Archive_Simil_Text
Public ReadOnly Property Archive_Simil_Text() As helper.Archive_Simil_Text
Get
If _Archive_Simil_Text Is Nothing Then
_Archive_Simil_Text = New helper.Archive_Simil_Text(q)
End If
Return _Archive_Simil_Text
End Get
End Property


Private _Auto_Follow_Account As helper.Auto_Follow_Account
Public ReadOnly Property Auto_Follow_Account() As helper.Auto_Follow_Account
Get
If _Auto_Follow_Account Is Nothing Then
_Auto_Follow_Account = New helper.Auto_Follow_Account(q)
End If
Return _Auto_Follow_Account
End Get
End Property


Private _Auto_Follow_Profile As helper.Auto_Follow_Profile
Public ReadOnly Property Auto_Follow_Profile() As helper.Auto_Follow_Profile
Get
If _Auto_Follow_Profile Is Nothing Then
_Auto_Follow_Profile = New helper.Auto_Follow_Profile(q)
End If
Return _Auto_Follow_Profile
End Get
End Property


Private _Auto_Follow_Query As helper.Auto_Follow_Query
Public ReadOnly Property Auto_Follow_Query() As helper.Auto_Follow_Query
Get
If _Auto_Follow_Query Is Nothing Then
_Auto_Follow_Query = New helper.Auto_Follow_Query(q)
End If
Return _Auto_Follow_Query
End Get
End Property


Private _Categorize As helper.Categorize
Public ReadOnly Property Categorize() As helper.Categorize
Get
If _Categorize Is Nothing Then
_Categorize = New helper.Categorize(q)
End If
Return _Categorize
End Get
End Property


Private _Categorize_Account As helper.Categorize_Account
Public ReadOnly Property Categorize_Account() As helper.Categorize_Account
Get
If _Categorize_Account Is Nothing Then
_Categorize_Account = New helper.Categorize_Account(q)
End If
Return _Categorize_Account
End Get
End Property


Private _Categorize_Follower As helper.Categorize_Follower
Public ReadOnly Property Categorize_Follower() As helper.Categorize_Follower
Get
If _Categorize_Follower Is Nothing Then
_Categorize_Follower = New helper.Categorize_Follower(q)
End If
Return _Categorize_Follower
End Get
End Property


Private _Dictionary_Link_It As helper.Dictionary_Link_It
Public ReadOnly Property Dictionary_Link_It() As helper.Dictionary_Link_It
Get
If _Dictionary_Link_It Is Nothing Then
_Dictionary_Link_It = New helper.Dictionary_Link_It(q)
End If
Return _Dictionary_Link_It
End Get
End Property


Private _Favorite_Post As helper.Favorite_Post
Public ReadOnly Property Favorite_Post() As helper.Favorite_Post
Get
If _Favorite_Post Is Nothing Then
_Favorite_Post = New helper.Favorite_Post(q)
End If
Return _Favorite_Post
End Get
End Property


Private _Feedrss As helper.Feedrss
Public ReadOnly Property Feedrss() As helper.Feedrss
Get
If _Feedrss Is Nothing Then
_Feedrss = New helper.Feedrss(q)
End If
Return _Feedrss
End Get
End Property


Private _Feedrss_Item As helper.Feedrss_Item
Public ReadOnly Property Feedrss_Item() As helper.Feedrss_Item
Get
If _Feedrss_Item Is Nothing Then
_Feedrss_Item = New helper.Feedrss_Item(q)
End If
Return _Feedrss_Item
End Get
End Property


Private _Folder As helper.Folder
Public ReadOnly Property Folder() As helper.Folder
Get
If _Folder Is Nothing Then
_Folder = New helper.Folder(q)
End If
Return _Folder
End Get
End Property


Private _Follower_Analysis As helper.Follower_Analysis
Public ReadOnly Property Follower_Analysis() As helper.Follower_Analysis
Get
If _Follower_Analysis Is Nothing Then
_Follower_Analysis = New helper.Follower_Analysis(q)
End If
Return _Follower_Analysis
End Get
End Property


Private _Gender_Db_1 As helper.Gender_Db_1
Public ReadOnly Property Gender_Db_1() As helper.Gender_Db_1
Get
If _Gender_Db_1 Is Nothing Then
_Gender_Db_1 = New helper.Gender_Db_1(q)
End If
Return _Gender_Db_1
End Get
End Property


Private _Gender_Db_2 As helper.Gender_Db_2
Public ReadOnly Property Gender_Db_2() As helper.Gender_Db_2
Get
If _Gender_Db_2 Is Nothing Then
_Gender_Db_2 = New helper.Gender_Db_2(q)
End If
Return _Gender_Db_2
End Get
End Property


Private _Gender_Name As helper.Gender_Name
Public ReadOnly Property Gender_Name() As helper.Gender_Name
Get
If _Gender_Name Is Nothing Then
_Gender_Name = New helper.Gender_Name(q)
End If
Return _Gender_Name
End Get
End Property


Private _Gender_Name_Copy As helper.Gender_Name_Copy
Public ReadOnly Property Gender_Name_Copy() As helper.Gender_Name_Copy
Get
If _Gender_Name_Copy Is Nothing Then
_Gender_Name_Copy = New helper.Gender_Name_Copy(q)
End If
Return _Gender_Name_Copy
End Get
End Property


Private _Group_Account As helper.Group_Account
Public ReadOnly Property Group_Account() As helper.Group_Account
Get
If _Group_Account Is Nothing Then
_Group_Account = New helper.Group_Account(q)
End If
Return _Group_Account
End Get
End Property


Private _Group_Query As helper.Group_Query
Public ReadOnly Property Group_Query() As helper.Group_Query
Get
If _Group_Query Is Nothing Then
_Group_Query = New helper.Group_Query(q)
End If
Return _Group_Query
End Get
End Property


Private _Language As helper.Language
Public ReadOnly Property Language() As helper.Language
Get
If _Language Is Nothing Then
_Language = New helper.Language(q)
End If
Return _Language
End Get
End Property


Private _Language_Copy As helper.Language_Copy
Public ReadOnly Property Language_Copy() As helper.Language_Copy
Get
If _Language_Copy Is Nothing Then
_Language_Copy = New helper.Language_Copy(q)
End If
Return _Language_Copy
End Get
End Property


Private _Language_Copy1 As helper.Language_Copy1
Public ReadOnly Property Language_Copy1() As helper.Language_Copy1
Get
If _Language_Copy1 Is Nothing Then
_Language_Copy1 = New helper.Language_Copy1(q)
End If
Return _Language_Copy1
End Get
End Property


Private _Link As helper.Link
Public ReadOnly Property Link() As helper.Link
Get
If _Link Is Nothing Then
_Link = New helper.Link(q)
End If
Return _Link
End Get
End Property


Private _Link_Post As helper.Link_Post
Public ReadOnly Property Link_Post() As helper.Link_Post
Get
If _Link_Post Is Nothing Then
_Link_Post = New helper.Link_Post(q)
End If
Return _Link_Post
End Get
End Property


Private _List As helper.List
Public ReadOnly Property List() As helper.List
Get
If _List Is Nothing Then
_List = New helper.List(q)
End If
Return _List
End Get
End Property


Private _List_Account As helper.List_Account
Public ReadOnly Property List_Account() As helper.List_Account
Get
If _List_Account Is Nothing Then
_List_Account = New helper.List_Account(q)
End If
Return _List_Account
End Get
End Property


Private _Listen_Query As helper.Listen_Query
Public ReadOnly Property Listen_Query() As helper.Listen_Query
Get
If _Listen_Query Is Nothing Then
_Listen_Query = New helper.Listen_Query(q)
End If
Return _Listen_Query
End Get
End Property


Private _Media As helper.Media
Public ReadOnly Property Media() As helper.Media
Get
If _Media Is Nothing Then
_Media = New helper.Media(q)
End If
Return _Media
End Get
End Property


Private _Message_Post As helper.Message_Post
Public ReadOnly Property Message_Post() As helper.Message_Post
Get
If _Message_Post Is Nothing Then
_Message_Post = New helper.Message_Post(q)
End If
Return _Message_Post
End Get
End Property


Private _Network As helper.Network
Public ReadOnly Property Network() As helper.Network
Get
If _Network Is Nothing Then
_Network = New helper.Network(q)
End If
Return _Network
End Get
End Property


Private _Place As helper.Place
Public ReadOnly Property Place() As helper.Place
Get
If _Place Is Nothing Then
_Place = New helper.Place(q)
End If
Return _Place
End Get
End Property


Private _Place_Country As helper.Place_Country
Public ReadOnly Property Place_Country() As helper.Place_Country
Get
If _Place_Country Is Nothing Then
_Place_Country = New helper.Place_Country(q)
End If
Return _Place_Country
End Get
End Property


Private _Plan As helper.Plan
Public ReadOnly Property Plan() As helper.Plan
Get
If _Plan Is Nothing Then
_Plan = New helper.Plan(q)
End If
Return _Plan
End Get
End Property


Private _Private_Post As helper.Private_Post
Public ReadOnly Property Private_Post() As helper.Private_Post
Get
If _Private_Post Is Nothing Then
_Private_Post = New helper.Private_Post(q)
End If
Return _Private_Post
End Get
End Property


Private _Private_Post_Last As helper.Private_Post_Last
Public ReadOnly Property Private_Post_Last() As helper.Private_Post_Last
Get
If _Private_Post_Last Is Nothing Then
_Private_Post_Last = New helper.Private_Post_Last(q)
End If
Return _Private_Post_Last
End Get
End Property


Private _Private_Post_Last_Copy As helper.Private_Post_Last_Copy
Public ReadOnly Property Private_Post_Last_Copy() As helper.Private_Post_Last_Copy
Get
If _Private_Post_Last_Copy Is Nothing Then
_Private_Post_Last_Copy = New helper.Private_Post_Last_Copy(q)
End If
Return _Private_Post_Last_Copy
End Get
End Property


Private _Profile As helper.Profile
Public ReadOnly Property Profile() As helper.Profile
Get
If _Profile Is Nothing Then
_Profile = New helper.Profile(q)
End If
Return _Profile
End Get
End Property


Private _Promo As helper.Promo
Public ReadOnly Property Promo() As helper.Promo
Get
If _Promo Is Nothing Then
_Promo = New helper.Promo(q)
End If
Return _Promo
End Get
End Property


Private _Query As helper.Query
Public ReadOnly Property Query() As helper.Query
Get
If _Query Is Nothing Then
_Query = New helper.Query(q)
End If
Return _Query
End Get
End Property


Private _Schedule_Task As helper.Schedule_Task
Public ReadOnly Property Schedule_Task() As helper.Schedule_Task
Get
If _Schedule_Task Is Nothing Then
_Schedule_Task = New helper.Schedule_Task(q)
End If
Return _Schedule_Task
End Get
End Property


Private _Send_Mail As helper.Send_Mail
Public ReadOnly Property Send_Mail() As helper.Send_Mail
Get
If _Send_Mail Is Nothing Then
_Send_Mail = New helper.Send_Mail(q)
End If
Return _Send_Mail
End Get
End Property


Private _Share_Detail As helper.Share_Detail
Public ReadOnly Property Share_Detail() As helper.Share_Detail
Get
If _Share_Detail Is Nothing Then
_Share_Detail = New helper.Share_Detail(q)
End If
Return _Share_Detail
End Get
End Property


Private _Share_Post As helper.Share_Post
Public ReadOnly Property Share_Post() As helper.Share_Post
Get
If _Share_Post Is Nothing Then
_Share_Post = New helper.Share_Post(q)
End If
Return _Share_Post
End Get
End Property


Private _Task_Post As helper.Task_Post
Public ReadOnly Property Task_Post() As helper.Task_Post
Get
If _Task_Post Is Nothing Then
_Task_Post = New helper.Task_Post(q)
End If
Return _Task_Post
End Get
End Property


Private _Task_Scheduler As helper.Task_Scheduler
Public ReadOnly Property Task_Scheduler() As helper.Task_Scheduler
Get
If _Task_Scheduler Is Nothing Then
_Task_Scheduler = New helper.Task_Scheduler(q)
End If
Return _Task_Scheduler
End Get
End Property


Private _Task_Send As helper.Task_Send
Public ReadOnly Property Task_Send() As helper.Task_Send
Get
If _Task_Send Is Nothing Then
_Task_Send = New helper.Task_Send(q)
End If
Return _Task_Send
End Get
End Property


Private _Time_Zone As helper.Time_Zone
Public ReadOnly Property Time_Zone() As helper.Time_Zone
Get
If _Time_Zone Is Nothing Then
_Time_Zone = New helper.Time_Zone(q)
End If
Return _Time_Zone
End Get
End Property


Private _User As helper.User
Public ReadOnly Property User() As helper.User
Get
If _User Is Nothing Then
_User = New helper.User(q)
End If
Return _User
End Get
End Property


Private _User_Account As helper.User_Account
Public ReadOnly Property User_Account() As helper.User_Account
Get
If _User_Account Is Nothing Then
_User_Account = New helper.User_Account(q)
End If
Return _User_Account
End Get
End Property


Private _User_Alert As helper.User_Alert
Public ReadOnly Property User_Alert() As helper.User_Alert
Get
If _User_Alert Is Nothing Then
_User_Alert = New helper.User_Alert(q)
End If
Return _User_Alert
End Get
End Property


Private _User_Option As helper.User_Option
Public ReadOnly Property User_Option() As helper.User_Option
Get
If _User_Option Is Nothing Then
_User_Option = New helper.User_Option(q)
End If
Return _User_Option
End Get
End Property


Private _User_Order As helper.User_Order
Public ReadOnly Property User_Order() As helper.User_Order
Get
If _User_Order Is Nothing Then
_User_Order = New helper.User_Order(q)
End If
Return _User_Order
End Get
End Property


Private _User_Plan As helper.User_Plan
Public ReadOnly Property User_Plan() As helper.User_Plan
Get
If _User_Plan Is Nothing Then
_User_Plan = New helper.User_Plan(q)
End If
Return _User_Plan
End Get
End Property


Private _User_Promo As helper.User_Promo
Public ReadOnly Property User_Promo() As helper.User_Promo
Get
If _User_Promo Is Nothing Then
_User_Promo = New helper.User_Promo(q)
End If
Return _User_Promo
End Get
End Property


Private _Zzz__Query_Account As helper.Zzz__Query_Account
Public ReadOnly Property Zzz__Query_Account() As helper.Zzz__Query_Account
Get
If _Zzz__Query_Account Is Nothing Then
_Zzz__Query_Account = New helper.Zzz__Query_Account(q)
End If
Return _Zzz__Query_Account
End Get
End Property


Private _Zzz_Account_Add_Info As helper.Zzz_Account_Add_Info
Public ReadOnly Property Zzz_Account_Add_Info() As helper.Zzz_Account_Add_Info
Get
If _Zzz_Account_Add_Info Is Nothing Then
_Zzz_Account_Add_Info = New helper.Zzz_Account_Add_Info(q)
End If
Return _Zzz_Account_Add_Info
End Get
End Property


Private _Zzz_Account_Elaboration As helper.Zzz_Account_Elaboration
Public ReadOnly Property Zzz_Account_Elaboration() As helper.Zzz_Account_Elaboration
Get
If _Zzz_Account_Elaboration Is Nothing Then
_Zzz_Account_Elaboration = New helper.Zzz_Account_Elaboration(q)
End If
Return _Zzz_Account_Elaboration
End Get
End Property


Private _Zzz_Account_Link As helper.Zzz_Account_Link
Public ReadOnly Property Zzz_Account_Link() As helper.Zzz_Account_Link
Get
If _Zzz_Account_Link Is Nothing Then
_Zzz_Account_Link = New helper.Zzz_Account_Link(q)
End If
Return _Zzz_Account_Link
End Get
End Property


Private _Zzz_Account_Update As helper.Zzz_Account_Update
Public ReadOnly Property Zzz_Account_Update() As helper.Zzz_Account_Update
Get
If _Zzz_Account_Update Is Nothing Then
_Zzz_Account_Update = New helper.Zzz_Account_Update(q)
End If
Return _Zzz_Account_Update
End Get
End Property


Private _Zzz_Alert As helper.Zzz_Alert
Public ReadOnly Property Zzz_Alert() As helper.Zzz_Alert
Get
If _Zzz_Alert Is Nothing Then
_Zzz_Alert = New helper.Zzz_Alert(q)
End If
Return _Zzz_Alert
End Get
End Property


Private _Zzz_Auto_Follow_Account As helper.Zzz_Auto_Follow_Account
Public ReadOnly Property Zzz_Auto_Follow_Account() As helper.Zzz_Auto_Follow_Account
Get
If _Zzz_Auto_Follow_Account Is Nothing Then
_Zzz_Auto_Follow_Account = New helper.Zzz_Auto_Follow_Account(q)
End If
Return _Zzz_Auto_Follow_Account
End Get
End Property


Private _Zzz_Query_Account As helper.Zzz_Query_Account
Public ReadOnly Property Zzz_Query_Account() As helper.Zzz_Query_Account
Get
If _Zzz_Query_Account Is Nothing Then
_Zzz_Query_Account = New helper.Zzz_Query_Account(q)
End If
Return _Zzz_Query_Account
End Get
End Property


Private _Zzz_Query_Post As helper.Zzz_Query_Post
Public ReadOnly Property Zzz_Query_Post() As helper.Zzz_Query_Post
Get
If _Zzz_Query_Post Is Nothing Then
_Zzz_Query_Post = New helper.Zzz_Query_Post(q)
End If
Return _Zzz_Query_Post
End Get
End Property


Private _Zzz_Share_Post As helper.Zzz_Share_Post
Public ReadOnly Property Zzz_Share_Post() As helper.Zzz_Share_Post
Get
If _Zzz_Share_Post Is Nothing Then
_Zzz_Share_Post = New helper.Zzz_Share_Post(q)
End If
Return _Zzz_Share_Post
End Get
End Property


Private _Zzz_Trend As helper.Zzz_Trend
Public ReadOnly Property Zzz_Trend() As helper.Zzz_Trend
Get
If _Zzz_Trend Is Nothing Then
_Zzz_Trend = New helper.Zzz_Trend(q)
End If
Return _Zzz_Trend
End Get
End Property


Private _Zzz_User As helper.Zzz_User
Public ReadOnly Property Zzz_User() As helper.Zzz_User
Get
If _Zzz_User Is Nothing Then
_Zzz_User = New helper.Zzz_User(q)
End If
Return _Zzz_User
End Get
End Property


Private _Zzz_User_Account As helper.Zzz_User_Account
Public ReadOnly Property Zzz_User_Account() As helper.Zzz_User_Account
Get
If _Zzz_User_Account Is Nothing Then
_Zzz_User_Account = New helper.Zzz_User_Account(q)
End If
Return _Zzz_User_Account
End Get
End Property


Public Class helper

Partial Public Class _Account_Link
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("_Account_Link.Account_Id", "=", v)
End Function

End Class

Partial Public Class _Account_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("_Account_Post.Id", "=", v)
End Function

Public Function Post_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("_Account_Post.Post_Code", "=", v)
End Function

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("_Account_Post.Account_Id", "=", v)
End Function

End Class

Partial Public Class _Query_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Query_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("_Query_Account.Query_Id", "=", v)
End Function

End Class

Partial Public Class _Query_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("_Query_Post.Id", "=", v)
End Function

Public Function Post_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("_Query_Post.Post_Code", "=", v)
End Function

Public Function Query_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("_Query_Post.Query_Id", "=", v)
End Function

End Class

Partial Public Class _Trend
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("_Trend.Account_Id", "=", v)
End Function

End Class

Partial Public Class Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Account.Id", "=", v)
End Function

Public Function Account_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("Account.Account_Code", "=", v)
End Function

End Class

Partial Public Class Account_Add_Info
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Account_Add_Info.Account_Id", "=", v)
End Function

End Class

Partial Public Class Account_Auth
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Account_Auth.Account_Id", "=", v)
End Function

End Class

Partial Public Class Account_Filter
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Account_Filter.Id", "=", v)
End Function

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Account_Filter.Account_Id", "=", v)
End Function

End Class

Partial Public Class Account_Klout
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Account_Klout.Account_Id", "=", v)
End Function

End Class

Partial Public Class Account_Option
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Account_Option.Account_Id", "=", v)
End Function

End Class

Partial Public Class Account_Update
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Account_Update.Account_Id", "=", v)
End Function

End Class

Partial Public Class Alert
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Alert.Id", "=", v)
End Function

End Class

Partial Public Class Archive_Data
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Archive_Data.Id", "=", v)
End Function

Public Function Archive_Type_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Archive_Data.Archive_Type_Id", "=", v)
End Function

End Class

Partial Public Class Archive_Simil_Text
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Archive_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Archive_Simil_Text.Archive_Id", "=", v)
End Function

End Class

Partial Public Class Auto_Follow_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Auto_Follow_Account.Account_Id", "=", v)
End Function

End Class

Partial Public Class Auto_Follow_Profile
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Auto_Follow_Profile.Account_Id", "=", v)
End Function

End Class

Partial Public Class Auto_Follow_Query
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Auto_Follow_Query.Account_Id", "=", v)
End Function

End Class

Partial Public Class Categorize
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As uinteger) As BuildQuery(Of Tresult)
Return q.Where("Categorize.Id", "=", v)
End Function

Public Function Folder_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Categorize.Folder_Id", "=", v)
End Function

End Class

Partial Public Class Categorize_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Categorize_Account.Account_Id", "=", v)
End Function

End Class

Partial Public Class Categorize_Follower
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Categorize_Follower.Account_Id", "=", v)
End Function

End Class

Partial Public Class Dictionary_Link_It
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Word_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Dictionary_Link_It.Word_Id", "=", v)
End Function

Public Function Word(v As string) As BuildQuery(Of Tresult)
Return q.Where("Dictionary_Link_It.Word", "=", v)
End Function

Public Function Word_Ref_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Dictionary_Link_It.Word_Ref_Id", "=", v)
End Function

End Class

Partial Public Class Favorite_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Favorite_Post.Account_Id", "=", v)
End Function

End Class

Partial Public Class Feedrss
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Feedrss.Id", "=", v)
End Function

End Class

Partial Public Class Feedrss_Item
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Feedrss_Item.Id", "=", v)
End Function

Public Function Hash(v As string) As BuildQuery(Of Tresult)
Return q.Where("Feedrss_Item.Hash", "=", v)
End Function

Public Function Feedrss_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Feedrss_Item.Feedrss_Id", "=", v)
End Function

End Class

Partial Public Class Folder
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Folder.Id", "=", v)
End Function

Public Function Ref_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Folder.Ref_Id", "=", v)
End Function

Public Function User_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Folder.User_Id", "=", v)
End Function

End Class

Partial Public Class Follower_Analysis
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Follower_Analysis.Account_Id", "=", v)
End Function

End Class

Partial Public Class Gender_Db_1
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Gender_Db_1.Id", "=", v)
End Function

End Class

Partial Public Class Gender_Db_2
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Gender_Db_2.Id", "=", v)
End Function

End Class

Partial Public Class Gender_Name
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Gender_Name.Id", "=", v)
End Function

Public Function Name(v As string) As BuildQuery(Of Tresult)
Return q.Where("Gender_Name.Name", "=", v)
End Function

End Class

Partial Public Class Gender_Name_Copy
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Gender_Name_Copy.Id", "=", v)
End Function

Public Function Name(v As string) As BuildQuery(Of Tresult)
Return q.Where("Gender_Name_Copy.Name", "=", v)
End Function

End Class

Partial Public Class Group_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Group_Account.Id", "=", v)
End Function

Public Function User_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Group_Account.User_Id", "=", v)
End Function

End Class

Partial Public Class Group_Query
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Group_Query.Id", "=", v)
End Function

Public Function User_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Group_Query.User_Id", "=", v)
End Function

End Class

Partial Public Class Language
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Language.Id", "=", v)
End Function

Public Function Lang_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("Language.Lang_Code", "=", v)
End Function

End Class

Partial Public Class Language_Copy
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Language_Copy.Id", "=", v)
End Function

Public Function Lang_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("Language_Copy.Lang_Code", "=", v)
End Function

End Class

Partial Public Class Language_Copy1
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Language_Copy1.Id", "=", v)
End Function

Public Function Lang_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("Language_Copy1.Lang_Code", "=", v)
End Function

End Class

Partial Public Class Link
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Link.Id", "=", v)
End Function

Public Function Short_Url(v As string) As BuildQuery(Of Tresult)
Return q.Where("Link.Short_Url", "=", v)
End Function

End Class

Partial Public Class Link_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

End Class

Partial Public Class List
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("List.Id", "=", v)
End Function

Public Function List_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("List.List_Code", "=", v)
End Function

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("List.Account_Id", "=", v)
End Function

End Class

Partial Public Class List_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function List_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("List_Account.List_Id", "=", v)
End Function

End Class

Partial Public Class Listen_Query
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Listen_Query.Account_Id", "=", v)
End Function

End Class

Partial Public Class Media
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Media.Id", "=", v)
End Function

End Class

Partial Public Class Message_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Message_Post.Id", "=", v)
End Function

Public Function Post_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("Message_Post.Post_Code", "=", v)
End Function

Public Function To_Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Message_Post.To_Account_Id", "=", v)
End Function

Public Function Reply_To_Post_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("Message_Post.Reply_To_Post_Code", "=", v)
End Function

Public Function Parent_Post_Update(v As Boolean) As BuildQuery(Of Tresult)
Return q.Where("Message_Post.Parent_Post_Update", "=", v)
End Function

End Class

Partial Public Class Network
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Network_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Network.Network_Id", "=", v)
End Function

End Class

Partial Public Class Place
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Place.Id", "=", v)
End Function

Public Function Place_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("Place.Place_Code", "=", v)
End Function

Public Function Country_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("Place.Country_Code", "=", v)
End Function

End Class

Partial Public Class Place_Country
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Place_Country.Id", "=", v)
End Function

Public Function Country_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("Place_Country.Country_Code", "=", v)
End Function

End Class

Partial Public Class Plan
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Plan.Id", "=", v)
End Function

End Class

Partial Public Class Private_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Private_Post.Id", "=", v)
End Function

Public Function Post_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("Private_Post.Post_Code", "=", v)
End Function

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Private_Post.Account_Id", "=", v)
End Function

End Class

Partial Public Class Private_Post_Last
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Private_Post_Last.Account_Id", "=", v)
End Function

End Class

Partial Public Class Private_Post_Last_Copy
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Private_Post_Last_Copy.Account_Id", "=", v)
End Function

End Class

Partial Public Class Profile
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Profile.Id", "=", v)
End Function

End Class

Partial Public Class Promo
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Promo.Id", "=", v)
End Function

End Class

Partial Public Class Query
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As uinteger) As BuildQuery(Of Tresult)
Return q.Where("Query.Id", "=", v)
End Function

Public Function Folder_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Query.Folder_Id", "=", v)
End Function

End Class

Partial Public Class Schedule_Task
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Schedule_Task.Id", "=", v)
End Function

End Class

Partial Public Class Send_Mail
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Send_Mail.Id", "=", v)
End Function

Public Function Mail_Send(v As Boolean) As BuildQuery(Of Tresult)
Return q.Where("Send_Mail.Mail_Send", "=", v)
End Function

End Class

Partial Public Class Share_Detail
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Post_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("Share_Detail.Post_Code", "=", v)
End Function

Public Function To_Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Share_Detail.To_Account_Id", "=", v)
End Function

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Share_Detail.Account_Id", "=", v)
End Function

Public Function Share_Post_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Share_Detail.Share_Post_Id", "=", v)
End Function

End Class

Partial Public Class Share_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Share_Post.Id", "=", v)
End Function

Public Function Post_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("Share_Post.Post_Code", "=", v)
End Function

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Share_Post.Account_Id", "=", v)
End Function

End Class

Partial Public Class Task_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Task_Post.Id", "=", v)
End Function

Public Function Task_Send_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Task_Post.Task_Send_Id", "=", v)
End Function

End Class

Partial Public Class Task_Scheduler
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Task_Scheduler.Id", "=", v)
End Function

Public Function Task_Send_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Task_Scheduler.Task_Send_Id", "=", v)
End Function

End Class

Partial Public Class Task_Send
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Task_Send.Id", "=", v)
End Function

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Task_Send.Account_Id", "=", v)
End Function

End Class

Partial Public Class Time_Zone
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Time_Zone.Id", "=", v)
End Function

End Class

Partial Public Class User
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("User.Id", "=", v)
End Function

End Class

Partial Public Class User_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function User_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("User_Account.User_Id", "=", v)
End Function

End Class

Partial Public Class User_Alert
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function User_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("User_Alert.User_Id", "=", v)
End Function

End Class

Partial Public Class User_Option
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function User_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("User_Option.User_Id", "=", v)
End Function

End Class

Partial Public Class User_Order
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("User_Order.Id", "=", v)
End Function

Public Function User_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("User_Order.User_Id", "=", v)
End Function

End Class

Partial Public Class User_Plan
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("User_Plan.Id", "=", v)
End Function

Public Function User_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("User_Plan.User_Id", "=", v)
End Function

End Class

Partial Public Class User_Promo
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("User_Promo.Id", "=", v)
End Function

Public Function User_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("User_Promo.User_Id", "=", v)
End Function

End Class

Partial Public Class Zzz__Query_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Query_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz__Query_Account.Query_Id", "=", v)
End Function

End Class

Partial Public Class Zzz_Account_Add_Info
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Account_Add_Info.Account_Id", "=", v)
End Function

Public Function Gender_Type_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Account_Add_Info.Gender_Type_Id", "=", v)
End Function

Public Function Place_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Account_Add_Info.Place_Id", "=", v)
End Function

Public Function Business_Type_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Account_Add_Info.Business_Type_Id", "=", v)
End Function

Public Function Status_Type_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Account_Add_Info.Status_Type_Id", "=", v)
End Function

End Class

Partial Public Class Zzz_Account_Elaboration
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Account_Elaboration.Account_Id", "=", v)
End Function

End Class

Partial Public Class Zzz_Account_Link
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Account_Link.Account_Id", "=", v)
End Function

End Class

Partial Public Class Zzz_Account_Update
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Account_Update.Account_Id", "=", v)
End Function

Public Function Profile_Update(v As Date) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Account_Update.Profile_Update", "=", v)
End Function

Public Function Post_Update(v As Date) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Account_Update.Post_Update", "=", v)
End Function

End Class

Partial Public Class Zzz_Alert
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Alert.Id", "=", v)
End Function

Public Function Alert_Date(v As Date) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Alert.Alert_Date", "=", v)
End Function

End Class

Partial Public Class Zzz_Auto_Follow_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Auto_Follow_Account.Account_Id", "=", v)
End Function

End Class

Partial Public Class Zzz_Query_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Query_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Query_Account.Query_Id", "=", v)
End Function

End Class

Partial Public Class Zzz_Query_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Query_Post.Id", "=", v)
End Function

Public Function Post_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Query_Post.Post_Code", "=", v)
End Function

Public Function Query_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Query_Post.Query_Id", "=", v)
End Function

End Class

Partial Public Class Zzz_Share_Post
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Share_Post.Id", "=", v)
End Function

Public Function Post_Code(v As string) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Share_Post.Post_Code", "=", v)
End Function

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Share_Post.Account_Id", "=", v)
End Function

End Class

Partial Public Class Zzz_Trend
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Account_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_Trend.Account_Id", "=", v)
End Function

End Class

Partial Public Class Zzz_User
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_User.Id", "=", v)
End Function

End Class

Partial Public Class Zzz_User_Account
Private q As BuildQuery(Of Tresult)
Public Sub New(q As BuildQuery(Of Tresult))
Me.q = q
End Sub

Public Function User_Id(v As integer) As BuildQuery(Of Tresult)
Return q.Where("Zzz_User_Account.User_Id", "=", v)
End Function

End Class

End Class

End Class

End Class

Partial Public Class BuildQuery(Of Tresult As {New, Class})
Inherits TableQuery(Of Tresult)
Public Sub New(db As DBContext)
MyBase.New(db)
End Sub
Public Sub New(db As DBContext,tb as string)
MyBase.New(db, tb)
End Sub
Private _REL As helper.rel(Of Tresult)
Public ReadOnly Property REL() As helper.rel(Of Tresult)
Get
If _REL Is Nothing Then
_REL = New helper.rel(Of Tresult)(me)
End If
Return _REL
End Get
End Property

Private _BY As helper.by(Of Tresult)
Public ReadOnly Property BY() As helper.by(Of Tresult)
Get
If _BY Is Nothing Then
_BY = New helper.by(Of Tresult)(me)
End If
Return _BY
End Get
End Property


End Class
#Region "Prop Tabelle DB"
#End Region

#Region "Tabelle DB"
Partial Public Class _Account_Link
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As _Account_Link
Dim entity As _Account_Link = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Link_Type_Id As integer
Private _Account_Link_Id As integer
Private _Updating As Boolean
Private _Create_Date As Date
Private _Analysis As Boolean
Private _Excluded As Boolean

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnLink_Type_IdChanged()
End Sub

Partial Private Sub OnLink_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_Link_IdChanged()
End Sub

Partial Private Sub OnAccount_Link_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnUpdatingChanged()
End Sub

Partial Private Sub OnUpdatingChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnCreate_DateChanged()
End Sub

Partial Private Sub OnCreate_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnAnalysisChanged()
End Sub

Partial Private Sub OnAnalysisChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnExcludedChanged()
End Sub

Partial Private Sub OnExcludedChanging(ByVal value As Boolean)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Link_Type_Id() As integer
Get
Return Me._Link_Type_Id
End Get
Set(value As integer)
If (_Link_Type_Id <> value  ) Then
Me.OnLink_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Link_Type_Id = value
Me.SendPropertyChanged("Link_Type_Id")
Me.OnLink_Type_IdChanged()
End If
End Set
End Property

Public Property Account_Link_Id() As integer
Get
Return Me._Account_Link_Id
End Get
Set(value As integer)
If (_Account_Link_Id <> value  ) Then
Me.OnAccount_Link_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Link_Id = value
Me.SendPropertyChanged("Account_Link_Id")
Me.OnAccount_Link_IdChanged()
End If
End Set
End Property

Public Property Updating() As Boolean
Get
Return Me._Updating
End Get
Set(value As Boolean)
If (_Updating <> value  ) Then
Me.OnUpdatingChanging(value)
Me.SendPropertyChanging()
Me._Updating = value
Me.SendPropertyChanged("Updating")
Me.OnUpdatingChanged()
End If
End Set
End Property

Public Property Create_Date() As Date
Get
Return Me._Create_Date
End Get
Set(value As Date)
If (_Create_Date <> value  ) Then
Me.OnCreate_DateChanging(value)
Me.SendPropertyChanging()
Me._Create_Date = value
Me.SendPropertyChanged("Create_Date")
Me.OnCreate_DateChanged()
End If
End Set
End Property

Public Property Analysis() As Boolean
Get
Return Me._Analysis
End Get
Set(value As Boolean)
If (_Analysis <> value  ) Then
Me.OnAnalysisChanging(value)
Me.SendPropertyChanging()
Me._Analysis = value
Me.SendPropertyChanged("Analysis")
Me.OnAnalysisChanged()
End If
End Set
End Property

Public Property Excluded() As Boolean
Get
Return Me._Excluded
End Get
Set(value As Boolean)
If (_Excluded <> value  ) Then
Me.OnExcludedChanging(value)
Me.SendPropertyChanging()
Me._Excluded = value
Me.SendPropertyChanged("Excluded")
Me.OnExcludedChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class _Account_Post
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As _Account_Post
Dim entity As _Account_Post = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Post_Code As string = ""
Private _Account_Id As integer
Private _Post_Text As string = ""
Private _Pubb_Date As Date

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_CodeChanged()
End Sub

Partial Private Sub OnPost_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_TextChanged()
End Sub

Partial Private Sub OnPost_TextChanging(ByVal value As string)
End Sub

Partial Private Sub OnPubb_DateChanged()
End Sub

Partial Private Sub OnPubb_DateChanging(ByVal value As Date)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Post_Code() As string
Get
Return Me._Post_Code
End Get
Set(value As string)
If (_Post_Code <> value  Or _Post_Code Is Nothing  ) Then
Me.OnPost_CodeChanging(value)
Me.SendPropertyChanging()
Me._Post_Code = value
Me.SendPropertyChanged("Post_Code")
Me.OnPost_CodeChanged()
End If
End Set
End Property

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Post_Text() As string
Get
Return Me._Post_Text
End Get
Set(value As string)
If (_Post_Text <> value  Or _Post_Text Is Nothing  ) Then
Me.OnPost_TextChanging(value)
Me.SendPropertyChanging()
Me._Post_Text = value
Me.SendPropertyChanged("Post_Text")
Me.OnPost_TextChanged()
End If
End Set
End Property

Public Property Pubb_Date() As Date
Get
Return Me._Pubb_Date
End Get
Set(value As Date)
If (_Pubb_Date <> value  ) Then
Me.OnPubb_DateChanging(value)
Me.SendPropertyChanging()
Me._Pubb_Date = value
Me.SendPropertyChanged("Pubb_Date")
Me.OnPubb_DateChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class _Query_Account
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As _Query_Account
Dim entity As _Query_Account = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Query_Id As integer
Private _Account_Code As string = ""
Private _Post_Update As Date
Private _Post_Count As integer
Private _Account_Username As string = ""
Private _Account_Follower_Count As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnQuery_IdChanged()
End Sub

Partial Private Sub OnQuery_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_CodeChanged()
End Sub

Partial Private Sub OnAccount_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnPost_UpdateChanged()
End Sub

Partial Private Sub OnPost_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnPost_CountChanged()
End Sub

Partial Private Sub OnPost_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_UsernameChanged()
End Sub

Partial Private Sub OnAccount_UsernameChanging(ByVal value As string)
End Sub

Partial Private Sub OnAccount_Follower_CountChanged()
End Sub

Partial Private Sub OnAccount_Follower_CountChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Query_Id() As integer
Get
Return Me._Query_Id
End Get
Set(value As integer)
If (_Query_Id <> value  ) Then
Me.OnQuery_IdChanging(value)
Me.SendPropertyChanging()
Me._Query_Id = value
Me.SendPropertyChanged("Query_Id")
Me.OnQuery_IdChanged()
End If
End Set
End Property

Public Property Account_Code() As string
Get
Return Me._Account_Code
End Get
Set(value As string)
If (_Account_Code <> value  Or _Account_Code Is Nothing  ) Then
Me.OnAccount_CodeChanging(value)
Me.SendPropertyChanging()
Me._Account_Code = value
Me.SendPropertyChanged("Account_Code")
Me.OnAccount_CodeChanged()
End If
End Set
End Property

Public Property Post_Update() As Date
Get
Return Me._Post_Update
End Get
Set(value As Date)
If (_Post_Update <> value  ) Then
Me.OnPost_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Post_Update = value
Me.SendPropertyChanged("Post_Update")
Me.OnPost_UpdateChanged()
End If
End Set
End Property

Public Property Post_Count() As integer
Get
Return Me._Post_Count
End Get
Set(value As integer)
If (_Post_Count <> value  ) Then
Me.OnPost_CountChanging(value)
Me.SendPropertyChanging()
Me._Post_Count = value
Me.SendPropertyChanged("Post_Count")
Me.OnPost_CountChanged()
End If
End Set
End Property

Public Property Account_Username() As string
Get
Return Me._Account_Username
End Get
Set(value As string)
If (_Account_Username <> value  Or _Account_Username Is Nothing  ) Then
Me.OnAccount_UsernameChanging(value)
Me.SendPropertyChanging()
Me._Account_Username = value
Me.SendPropertyChanged("Account_Username")
Me.OnAccount_UsernameChanged()
End If
End Set
End Property

Public Property Account_Follower_Count() As integer
Get
Return Me._Account_Follower_Count
End Get
Set(value As integer)
If (_Account_Follower_Count <> value  ) Then
Me.OnAccount_Follower_CountChanging(value)
Me.SendPropertyChanging()
Me._Account_Follower_Count = value
Me.SendPropertyChanged("Account_Follower_Count")
Me.OnAccount_Follower_CountChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class _Query_Post
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As _Query_Post
Dim entity As _Query_Post = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Post_Code As string = ""
Private _Query_Id As integer
Private _Post_Text As string = ""
Private _Pubb_Date As Date
Private _Image_Url As string = ""
Private _Share_Count As integer
Private _Account_Code As string = ""
Private _Account_Follower_Count As integer
Private _Account_Username As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_CodeChanged()
End Sub

Partial Private Sub OnPost_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnQuery_IdChanged()
End Sub

Partial Private Sub OnQuery_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_TextChanged()
End Sub

Partial Private Sub OnPost_TextChanging(ByVal value As string)
End Sub

Partial Private Sub OnPubb_DateChanged()
End Sub

Partial Private Sub OnPubb_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnImage_UrlChanged()
End Sub

Partial Private Sub OnImage_UrlChanging(ByVal value As string)
End Sub

Partial Private Sub OnShare_CountChanged()
End Sub

Partial Private Sub OnShare_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_CodeChanged()
End Sub

Partial Private Sub OnAccount_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnAccount_Follower_CountChanged()
End Sub

Partial Private Sub OnAccount_Follower_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_UsernameChanged()
End Sub

Partial Private Sub OnAccount_UsernameChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Post_Code() As string
Get
Return Me._Post_Code
End Get
Set(value As string)
If (_Post_Code <> value  Or _Post_Code Is Nothing  ) Then
Me.OnPost_CodeChanging(value)
Me.SendPropertyChanging()
Me._Post_Code = value
Me.SendPropertyChanged("Post_Code")
Me.OnPost_CodeChanged()
End If
End Set
End Property

Public Property Query_Id() As integer
Get
Return Me._Query_Id
End Get
Set(value As integer)
If (_Query_Id <> value  ) Then
Me.OnQuery_IdChanging(value)
Me.SendPropertyChanging()
Me._Query_Id = value
Me.SendPropertyChanged("Query_Id")
Me.OnQuery_IdChanged()
End If
End Set
End Property

Public Property Post_Text() As string
Get
Return Me._Post_Text
End Get
Set(value As string)
If (_Post_Text <> value  Or _Post_Text Is Nothing  ) Then
Me.OnPost_TextChanging(value)
Me.SendPropertyChanging()
Me._Post_Text = value
Me.SendPropertyChanged("Post_Text")
Me.OnPost_TextChanged()
End If
End Set
End Property

Public Property Pubb_Date() As Date
Get
Return Me._Pubb_Date
End Get
Set(value As Date)
If (_Pubb_Date <> value  ) Then
Me.OnPubb_DateChanging(value)
Me.SendPropertyChanging()
Me._Pubb_Date = value
Me.SendPropertyChanged("Pubb_Date")
Me.OnPubb_DateChanged()
End If
End Set
End Property

Public Property Image_Url() As string
Get
Return Me._Image_Url
End Get
Set(value As string)
If (_Image_Url <> value  Or _Image_Url Is Nothing  ) Then
Me.OnImage_UrlChanging(value)
Me.SendPropertyChanging()
Me._Image_Url = value
Me.SendPropertyChanged("Image_Url")
Me.OnImage_UrlChanged()
End If
End Set
End Property

Public Property Share_Count() As integer
Get
Return Me._Share_Count
End Get
Set(value As integer)
If (_Share_Count <> value  ) Then
Me.OnShare_CountChanging(value)
Me.SendPropertyChanging()
Me._Share_Count = value
Me.SendPropertyChanged("Share_Count")
Me.OnShare_CountChanged()
End If
End Set
End Property

Public Property Account_Code() As string
Get
Return Me._Account_Code
End Get
Set(value As string)
If (_Account_Code <> value  Or _Account_Code Is Nothing  ) Then
Me.OnAccount_CodeChanging(value)
Me.SendPropertyChanging()
Me._Account_Code = value
Me.SendPropertyChanged("Account_Code")
Me.OnAccount_CodeChanged()
End If
End Set
End Property

Public Property Account_Follower_Count() As integer
Get
Return Me._Account_Follower_Count
End Get
Set(value As integer)
If (_Account_Follower_Count <> value  ) Then
Me.OnAccount_Follower_CountChanging(value)
Me.SendPropertyChanging()
Me._Account_Follower_Count = value
Me.SendPropertyChanged("Account_Follower_Count")
Me.OnAccount_Follower_CountChanged()
End If
End Set
End Property

Public Property Account_Username() As string
Get
Return Me._Account_Username
End Get
Set(value As string)
If (_Account_Username <> value  Or _Account_Username Is Nothing  ) Then
Me.OnAccount_UsernameChanging(value)
Me.SendPropertyChanging()
Me._Account_Username = value
Me.SendPropertyChanged("Account_Username")
Me.OnAccount_UsernameChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class _Trend
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As _Trend
Dim entity As _Trend = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Trend_Type_Id As integer
Private _Trend_Date As Date
Private _Value As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnTrend_Type_IdChanged()
End Sub

Partial Private Sub OnTrend_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnTrend_DateChanged()
End Sub

Partial Private Sub OnTrend_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnValueChanged()
End Sub

Partial Private Sub OnValueChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Trend_Type_Id() As integer
Get
Return Me._Trend_Type_Id
End Get
Set(value As integer)
If (_Trend_Type_Id <> value  ) Then
Me.OnTrend_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Trend_Type_Id = value
Me.SendPropertyChanged("Trend_Type_Id")
Me.OnTrend_Type_IdChanged()
End If
End Set
End Property

Public Property Trend_Date() As Date
Get
Return Me._Trend_Date
End Get
Set(value As Date)
If (_Trend_Date <> value  ) Then
Me.OnTrend_DateChanging(value)
Me.SendPropertyChanging()
Me._Trend_Date = value
Me.SendPropertyChanged("Trend_Date")
Me.OnTrend_DateChanged()
End If
End Set
End Property

Public Property Value() As integer
Get
Return Me._Value
End Get
Set(value As integer)
If (_Value <> value  ) Then
Me.OnValueChanging(value)
Me.SendPropertyChanging()
Me._Value = value
Me.SendPropertyChanged("Value")
Me.OnValueChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Account
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Account
Dim entity As Account = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Network_Id As integer
Private _Account_Code As string = ""
Private _Username As string = ""
Private _Fullname As string = ""
Private _Avatar As string = ""
Private _Location As string = ""
Private _Description As string = ""
Private _Url As string = ""
Private _Joined_Date As Date
Private _Utc_Offset As integer
Private _Archive_Post_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnNetwork_IdChanged()
End Sub

Partial Private Sub OnNetwork_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_CodeChanged()
End Sub

Partial Private Sub OnAccount_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnUsernameChanged()
End Sub

Partial Private Sub OnUsernameChanging(ByVal value As string)
End Sub

Partial Private Sub OnFullnameChanged()
End Sub

Partial Private Sub OnFullnameChanging(ByVal value As string)
End Sub

Partial Private Sub OnAvatarChanged()
End Sub

Partial Private Sub OnAvatarChanging(ByVal value As string)
End Sub

Partial Private Sub OnLocationChanged()
End Sub

Partial Private Sub OnLocationChanging(ByVal value As string)
End Sub

Partial Private Sub OnDescriptionChanged()
End Sub

Partial Private Sub OnDescriptionChanging(ByVal value As string)
End Sub

Partial Private Sub OnUrlChanged()
End Sub

Partial Private Sub OnUrlChanging(ByVal value As string)
End Sub

Partial Private Sub OnJoined_DateChanged()
End Sub

Partial Private Sub OnJoined_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnUtc_OffsetChanged()
End Sub

Partial Private Sub OnUtc_OffsetChanging(ByVal value As integer)
End Sub

Partial Private Sub OnArchive_Post_IdChanged()
End Sub

Partial Private Sub OnArchive_Post_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Network_Id() As integer
Get
Return Me._Network_Id
End Get
Set(value As integer)
If (_Network_Id <> value  ) Then
Me.OnNetwork_IdChanging(value)
Me.SendPropertyChanging()
Me._Network_Id = value
Me.SendPropertyChanged("Network_Id")
Me.OnNetwork_IdChanged()
End If
End Set
End Property

Public Property Account_Code() As string
Get
Return Me._Account_Code
End Get
Set(value As string)
If (_Account_Code <> value  Or _Account_Code Is Nothing  ) Then
Me.OnAccount_CodeChanging(value)
Me.SendPropertyChanging()
Me._Account_Code = value
Me.SendPropertyChanged("Account_Code")
Me.OnAccount_CodeChanged()
End If
End Set
End Property

Public Property Username() As string
Get
Return Me._Username
End Get
Set(value As string)
If (_Username <> value  Or _Username Is Nothing  ) Then
Me.OnUsernameChanging(value)
Me.SendPropertyChanging()
Me._Username = value
Me.SendPropertyChanged("Username")
Me.OnUsernameChanged()
End If
End Set
End Property

Public Property Fullname() As string
Get
Return Me._Fullname
End Get
Set(value As string)
If (_Fullname <> value  Or _Fullname Is Nothing  ) Then
Me.OnFullnameChanging(value)
Me.SendPropertyChanging()
Me._Fullname = value
Me.SendPropertyChanged("Fullname")
Me.OnFullnameChanged()
End If
End Set
End Property

Public Property Avatar() As string
Get
Return Me._Avatar
End Get
Set(value As string)
If (_Avatar <> value  Or _Avatar Is Nothing  ) Then
Me.OnAvatarChanging(value)
Me.SendPropertyChanging()
Me._Avatar = value
Me.SendPropertyChanged("Avatar")
Me.OnAvatarChanged()
End If
End Set
End Property

Public Property Location() As string
Get
Return Me._Location
End Get
Set(value As string)
If (_Location <> value  Or _Location Is Nothing  ) Then
Me.OnLocationChanging(value)
Me.SendPropertyChanging()
Me._Location = value
Me.SendPropertyChanged("Location")
Me.OnLocationChanged()
End If
End Set
End Property

Public Property Description() As string
Get
Return Me._Description
End Get
Set(value As string)
If (_Description <> value  Or _Description Is Nothing  ) Then
Me.OnDescriptionChanging(value)
Me.SendPropertyChanging()
Me._Description = value
Me.SendPropertyChanged("Description")
Me.OnDescriptionChanged()
End If
End Set
End Property

Public Property Url() As string
Get
Return Me._Url
End Get
Set(value As string)
If (_Url <> value  Or _Url Is Nothing  ) Then
Me.OnUrlChanging(value)
Me.SendPropertyChanging()
Me._Url = value
Me.SendPropertyChanged("Url")
Me.OnUrlChanged()
End If
End Set
End Property

Public Property Joined_Date() As Date
Get
Return Me._Joined_Date
End Get
Set(value As Date)
If (_Joined_Date <> value  ) Then
Me.OnJoined_DateChanging(value)
Me.SendPropertyChanging()
Me._Joined_Date = value
Me.SendPropertyChanged("Joined_Date")
Me.OnJoined_DateChanged()
End If
End Set
End Property

Public Property Utc_Offset() As integer
Get
Return Me._Utc_Offset
End Get
Set(value As integer)
If (_Utc_Offset <> value  ) Then
Me.OnUtc_OffsetChanging(value)
Me.SendPropertyChanging()
Me._Utc_Offset = value
Me.SendPropertyChanged("Utc_Offset")
Me.OnUtc_OffsetChanged()
End If
End Set
End Property

Public Property Archive_Post_Id() As integer
Get
Return Me._Archive_Post_Id
End Get
Set(value As integer)
If (_Archive_Post_Id <> value  ) Then
Me.OnArchive_Post_IdChanging(value)
Me.SendPropertyChanging()
Me._Archive_Post_Id = value
Me.SendPropertyChanged("Archive_Post_Id")
Me.OnArchive_Post_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Account_Add_Info
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Account_Add_Info
Dim entity As Account_Add_Info = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Profile_Update As Date
Private _Post_Count As integer
Private _Post_Update As Date
Private _Post_Update_Count As integer
Private _Post_Last_Code As string = ""
Private _Post_Last_Pubb_Date As Date
Private _Follower_Count As integer
Private _Friend_Count As integer
Private _Gender_Type_Id As integer
Private _Place_Id As integer
Private _Post_Hours_Json As string = ""
Private _Post_Hours_Total As integer
Private _Lang As string = ""
Private _Business_Type_Id As integer
Private _Post_Weeks_Json As string = ""
Private _Status_Type_Id As integer
Private _Private_Post As Boolean
Private _Verified As Boolean
Private _List_Memberships_Count As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnProfile_UpdateChanged()
End Sub

Partial Private Sub OnProfile_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnPost_CountChanged()
End Sub

Partial Private Sub OnPost_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_UpdateChanged()
End Sub

Partial Private Sub OnPost_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnPost_Update_CountChanged()
End Sub

Partial Private Sub OnPost_Update_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_Last_CodeChanged()
End Sub

Partial Private Sub OnPost_Last_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnPost_Last_Pubb_DateChanged()
End Sub

Partial Private Sub OnPost_Last_Pubb_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnFollower_CountChanged()
End Sub

Partial Private Sub OnFollower_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFriend_CountChanged()
End Sub

Partial Private Sub OnFriend_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnGender_Type_IdChanged()
End Sub

Partial Private Sub OnGender_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPlace_IdChanged()
End Sub

Partial Private Sub OnPlace_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_Hours_JsonChanged()
End Sub

Partial Private Sub OnPost_Hours_JsonChanging(ByVal value As string)
End Sub

Partial Private Sub OnPost_Hours_TotalChanged()
End Sub

Partial Private Sub OnPost_Hours_TotalChanging(ByVal value As integer)
End Sub

Partial Private Sub OnLangChanged()
End Sub

Partial Private Sub OnLangChanging(ByVal value As string)
End Sub

Partial Private Sub OnBusiness_Type_IdChanged()
End Sub

Partial Private Sub OnBusiness_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_Weeks_JsonChanged()
End Sub

Partial Private Sub OnPost_Weeks_JsonChanging(ByVal value As string)
End Sub

Partial Private Sub OnStatus_Type_IdChanged()
End Sub

Partial Private Sub OnStatus_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPrivate_PostChanged()
End Sub

Partial Private Sub OnPrivate_PostChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnVerifiedChanged()
End Sub

Partial Private Sub OnVerifiedChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnList_Memberships_CountChanged()
End Sub

Partial Private Sub OnList_Memberships_CountChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Profile_Update() As Date
Get
Return Me._Profile_Update
End Get
Set(value As Date)
If (_Profile_Update <> value  ) Then
Me.OnProfile_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Profile_Update = value
Me.SendPropertyChanged("Profile_Update")
Me.OnProfile_UpdateChanged()
End If
End Set
End Property

Public Property Post_Count() As integer
Get
Return Me._Post_Count
End Get
Set(value As integer)
If (_Post_Count <> value  ) Then
Me.OnPost_CountChanging(value)
Me.SendPropertyChanging()
Me._Post_Count = value
Me.SendPropertyChanged("Post_Count")
Me.OnPost_CountChanged()
End If
End Set
End Property

Public Property Post_Update() As Date
Get
Return Me._Post_Update
End Get
Set(value As Date)
If (_Post_Update <> value  ) Then
Me.OnPost_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Post_Update = value
Me.SendPropertyChanged("Post_Update")
Me.OnPost_UpdateChanged()
End If
End Set
End Property

Public Property Post_Update_Count() As integer
Get
Return Me._Post_Update_Count
End Get
Set(value As integer)
If (_Post_Update_Count <> value  ) Then
Me.OnPost_Update_CountChanging(value)
Me.SendPropertyChanging()
Me._Post_Update_Count = value
Me.SendPropertyChanged("Post_Update_Count")
Me.OnPost_Update_CountChanged()
End If
End Set
End Property

Public Property Post_Last_Code() As string
Get
Return Me._Post_Last_Code
End Get
Set(value As string)
If (_Post_Last_Code <> value  Or _Post_Last_Code Is Nothing  ) Then
Me.OnPost_Last_CodeChanging(value)
Me.SendPropertyChanging()
Me._Post_Last_Code = value
Me.SendPropertyChanged("Post_Last_Code")
Me.OnPost_Last_CodeChanged()
End If
End Set
End Property

Public Property Post_Last_Pubb_Date() As Date
Get
Return Me._Post_Last_Pubb_Date
End Get
Set(value As Date)
If (_Post_Last_Pubb_Date <> value  ) Then
Me.OnPost_Last_Pubb_DateChanging(value)
Me.SendPropertyChanging()
Me._Post_Last_Pubb_Date = value
Me.SendPropertyChanged("Post_Last_Pubb_Date")
Me.OnPost_Last_Pubb_DateChanged()
End If
End Set
End Property

Public Property Follower_Count() As integer
Get
Return Me._Follower_Count
End Get
Set(value As integer)
If (_Follower_Count <> value  ) Then
Me.OnFollower_CountChanging(value)
Me.SendPropertyChanging()
Me._Follower_Count = value
Me.SendPropertyChanged("Follower_Count")
Me.OnFollower_CountChanged()
End If
End Set
End Property

Public Property Friend_Count() As integer
Get
Return Me._Friend_Count
End Get
Set(value As integer)
If (_Friend_Count <> value  ) Then
Me.OnFriend_CountChanging(value)
Me.SendPropertyChanging()
Me._Friend_Count = value
Me.SendPropertyChanged("Friend_Count")
Me.OnFriend_CountChanged()
End If
End Set
End Property

Public Property Gender_Type_Id() As integer
Get
Return Me._Gender_Type_Id
End Get
Set(value As integer)
If (_Gender_Type_Id <> value  ) Then
Me.OnGender_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Gender_Type_Id = value
Me.SendPropertyChanged("Gender_Type_Id")
Me.OnGender_Type_IdChanged()
End If
End Set
End Property

Public Property Place_Id() As integer
Get
Return Me._Place_Id
End Get
Set(value As integer)
If (_Place_Id <> value  ) Then
Me.OnPlace_IdChanging(value)
Me.SendPropertyChanging()
Me._Place_Id = value
Me.SendPropertyChanged("Place_Id")
Me.OnPlace_IdChanged()
End If
End Set
End Property

Public Property Post_Hours_Json() As string
Get
Return Me._Post_Hours_Json
End Get
Set(value As string)
If (_Post_Hours_Json <> value  Or _Post_Hours_Json Is Nothing  ) Then
Me.OnPost_Hours_JsonChanging(value)
Me.SendPropertyChanging()
Me._Post_Hours_Json = value
Me.SendPropertyChanged("Post_Hours_Json")
Me.OnPost_Hours_JsonChanged()
End If
End Set
End Property

Public Property Post_Hours_Total() As integer
Get
Return Me._Post_Hours_Total
End Get
Set(value As integer)
If (_Post_Hours_Total <> value  ) Then
Me.OnPost_Hours_TotalChanging(value)
Me.SendPropertyChanging()
Me._Post_Hours_Total = value
Me.SendPropertyChanged("Post_Hours_Total")
Me.OnPost_Hours_TotalChanged()
End If
End Set
End Property

Public Property Lang() As string
Get
Return Me._Lang
End Get
Set(value As string)
If (_Lang <> value  Or _Lang Is Nothing  ) Then
Me.OnLangChanging(value)
Me.SendPropertyChanging()
Me._Lang = value
Me.SendPropertyChanged("Lang")
Me.OnLangChanged()
End If
End Set
End Property

Public Property Business_Type_Id() As integer
Get
Return Me._Business_Type_Id
End Get
Set(value As integer)
If (_Business_Type_Id <> value  ) Then
Me.OnBusiness_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Business_Type_Id = value
Me.SendPropertyChanged("Business_Type_Id")
Me.OnBusiness_Type_IdChanged()
End If
End Set
End Property

Public Property Post_Weeks_Json() As string
Get
Return Me._Post_Weeks_Json
End Get
Set(value As string)
If (_Post_Weeks_Json <> value  Or _Post_Weeks_Json Is Nothing  ) Then
Me.OnPost_Weeks_JsonChanging(value)
Me.SendPropertyChanging()
Me._Post_Weeks_Json = value
Me.SendPropertyChanged("Post_Weeks_Json")
Me.OnPost_Weeks_JsonChanged()
End If
End Set
End Property

Public Property Status_Type_Id() As integer
Get
Return Me._Status_Type_Id
End Get
Set(value As integer)
If (_Status_Type_Id <> value  ) Then
Me.OnStatus_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Status_Type_Id = value
Me.SendPropertyChanged("Status_Type_Id")
Me.OnStatus_Type_IdChanged()
End If
End Set
End Property

Public Property Private_Post() As Boolean
Get
Return Me._Private_Post
End Get
Set(value As Boolean)
If (_Private_Post <> value  ) Then
Me.OnPrivate_PostChanging(value)
Me.SendPropertyChanging()
Me._Private_Post = value
Me.SendPropertyChanged("Private_Post")
Me.OnPrivate_PostChanged()
End If
End Set
End Property

Public Property Verified() As Boolean
Get
Return Me._Verified
End Get
Set(value As Boolean)
If (_Verified <> value  ) Then
Me.OnVerifiedChanging(value)
Me.SendPropertyChanging()
Me._Verified = value
Me.SendPropertyChanged("Verified")
Me.OnVerifiedChanged()
End If
End Set
End Property

Public Property List_Memberships_Count() As integer
Get
Return Me._List_Memberships_Count
End Get
Set(value As integer)
If (_List_Memberships_Count <> value  ) Then
Me.OnList_Memberships_CountChanging(value)
Me.SendPropertyChanging()
Me._List_Memberships_Count = value
Me.SendPropertyChanged("List_Memberships_Count")
Me.OnList_Memberships_CountChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Account_Auth
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Account_Auth
Dim entity As Account_Auth = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Oauth_Consumer_Key As string = ""
Private _Oauth_Consumer_Secret As string = ""
Private _Oauth_Token As string = ""
Private _Oauth_Token_Secret As string = ""
Private _Network_Id As integer
Private _Last_Rate_Limit_Post As Date
Private _Last_Rate_Limit_Share_Post As Date
Private _Last_Rate_Limit_Search As Date
Private _Error_Account_Last_Date As Date
Private _Error_Account_Count As integer
Private _Disabled As sbyte
Private _Analysis_Followers As Boolean
Private _Analysis_Followers_Limit As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnOauth_Consumer_KeyChanged()
End Sub

Partial Private Sub OnOauth_Consumer_KeyChanging(ByVal value As string)
End Sub

Partial Private Sub OnOauth_Consumer_SecretChanged()
End Sub

Partial Private Sub OnOauth_Consumer_SecretChanging(ByVal value As string)
End Sub

Partial Private Sub OnOauth_TokenChanged()
End Sub

Partial Private Sub OnOauth_TokenChanging(ByVal value As string)
End Sub

Partial Private Sub OnOauth_Token_SecretChanged()
End Sub

Partial Private Sub OnOauth_Token_SecretChanging(ByVal value As string)
End Sub

Partial Private Sub OnNetwork_IdChanged()
End Sub

Partial Private Sub OnNetwork_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnLast_Rate_Limit_PostChanged()
End Sub

Partial Private Sub OnLast_Rate_Limit_PostChanging(ByVal value As Date)
End Sub

Partial Private Sub OnLast_Rate_Limit_Share_PostChanged()
End Sub

Partial Private Sub OnLast_Rate_Limit_Share_PostChanging(ByVal value As Date)
End Sub

Partial Private Sub OnLast_Rate_Limit_SearchChanged()
End Sub

Partial Private Sub OnLast_Rate_Limit_SearchChanging(ByVal value As Date)
End Sub

Partial Private Sub OnError_Account_Last_DateChanged()
End Sub

Partial Private Sub OnError_Account_Last_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnError_Account_CountChanged()
End Sub

Partial Private Sub OnError_Account_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnDisabledChanged()
End Sub

Partial Private Sub OnDisabledChanging(ByVal value As sbyte)
End Sub

Partial Private Sub OnAnalysis_FollowersChanged()
End Sub

Partial Private Sub OnAnalysis_FollowersChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnAnalysis_Followers_LimitChanged()
End Sub

Partial Private Sub OnAnalysis_Followers_LimitChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Oauth_Consumer_Key() As string
Get
Return Me._Oauth_Consumer_Key
End Get
Set(value As string)
If (_Oauth_Consumer_Key <> value  Or _Oauth_Consumer_Key Is Nothing  ) Then
Me.OnOauth_Consumer_KeyChanging(value)
Me.SendPropertyChanging()
Me._Oauth_Consumer_Key = value
Me.SendPropertyChanged("Oauth_Consumer_Key")
Me.OnOauth_Consumer_KeyChanged()
End If
End Set
End Property

Public Property Oauth_Consumer_Secret() As string
Get
Return Me._Oauth_Consumer_Secret
End Get
Set(value As string)
If (_Oauth_Consumer_Secret <> value  Or _Oauth_Consumer_Secret Is Nothing  ) Then
Me.OnOauth_Consumer_SecretChanging(value)
Me.SendPropertyChanging()
Me._Oauth_Consumer_Secret = value
Me.SendPropertyChanged("Oauth_Consumer_Secret")
Me.OnOauth_Consumer_SecretChanged()
End If
End Set
End Property

Public Property Oauth_Token() As string
Get
Return Me._Oauth_Token
End Get
Set(value As string)
If (_Oauth_Token <> value  Or _Oauth_Token Is Nothing  ) Then
Me.OnOauth_TokenChanging(value)
Me.SendPropertyChanging()
Me._Oauth_Token = value
Me.SendPropertyChanged("Oauth_Token")
Me.OnOauth_TokenChanged()
End If
End Set
End Property

Public Property Oauth_Token_Secret() As string
Get
Return Me._Oauth_Token_Secret
End Get
Set(value As string)
If (_Oauth_Token_Secret <> value  Or _Oauth_Token_Secret Is Nothing  ) Then
Me.OnOauth_Token_SecretChanging(value)
Me.SendPropertyChanging()
Me._Oauth_Token_Secret = value
Me.SendPropertyChanged("Oauth_Token_Secret")
Me.OnOauth_Token_SecretChanged()
End If
End Set
End Property

Public Property Network_Id() As integer
Get
Return Me._Network_Id
End Get
Set(value As integer)
If (_Network_Id <> value  ) Then
Me.OnNetwork_IdChanging(value)
Me.SendPropertyChanging()
Me._Network_Id = value
Me.SendPropertyChanged("Network_Id")
Me.OnNetwork_IdChanged()
End If
End Set
End Property

Public Property Last_Rate_Limit_Post() As Date
Get
Return Me._Last_Rate_Limit_Post
End Get
Set(value As Date)
If (_Last_Rate_Limit_Post <> value  ) Then
Me.OnLast_Rate_Limit_PostChanging(value)
Me.SendPropertyChanging()
Me._Last_Rate_Limit_Post = value
Me.SendPropertyChanged("Last_Rate_Limit_Post")
Me.OnLast_Rate_Limit_PostChanged()
End If
End Set
End Property

Public Property Last_Rate_Limit_Share_Post() As Date
Get
Return Me._Last_Rate_Limit_Share_Post
End Get
Set(value As Date)
If (_Last_Rate_Limit_Share_Post <> value  ) Then
Me.OnLast_Rate_Limit_Share_PostChanging(value)
Me.SendPropertyChanging()
Me._Last_Rate_Limit_Share_Post = value
Me.SendPropertyChanged("Last_Rate_Limit_Share_Post")
Me.OnLast_Rate_Limit_Share_PostChanged()
End If
End Set
End Property

Public Property Last_Rate_Limit_Search() As Date
Get
Return Me._Last_Rate_Limit_Search
End Get
Set(value As Date)
If (_Last_Rate_Limit_Search <> value  ) Then
Me.OnLast_Rate_Limit_SearchChanging(value)
Me.SendPropertyChanging()
Me._Last_Rate_Limit_Search = value
Me.SendPropertyChanged("Last_Rate_Limit_Search")
Me.OnLast_Rate_Limit_SearchChanged()
End If
End Set
End Property

Public Property Error_Account_Last_Date() As Date
Get
Return Me._Error_Account_Last_Date
End Get
Set(value As Date)
If (_Error_Account_Last_Date <> value  ) Then
Me.OnError_Account_Last_DateChanging(value)
Me.SendPropertyChanging()
Me._Error_Account_Last_Date = value
Me.SendPropertyChanged("Error_Account_Last_Date")
Me.OnError_Account_Last_DateChanged()
End If
End Set
End Property

Public Property Error_Account_Count() As integer
Get
Return Me._Error_Account_Count
End Get
Set(value As integer)
If (_Error_Account_Count <> value  ) Then
Me.OnError_Account_CountChanging(value)
Me.SendPropertyChanging()
Me._Error_Account_Count = value
Me.SendPropertyChanged("Error_Account_Count")
Me.OnError_Account_CountChanged()
End If
End Set
End Property

Public Property Disabled() As sbyte
Get
Return Me._Disabled
End Get
Set(value As sbyte)
If (_Disabled <> value  ) Then
Me.OnDisabledChanging(value)
Me.SendPropertyChanging()
Me._Disabled = value
Me.SendPropertyChanged("Disabled")
Me.OnDisabledChanged()
End If
End Set
End Property

Public Property Analysis_Followers() As Boolean
Get
Return Me._Analysis_Followers
End Get
Set(value As Boolean)
If (_Analysis_Followers <> value  ) Then
Me.OnAnalysis_FollowersChanging(value)
Me.SendPropertyChanging()
Me._Analysis_Followers = value
Me.SendPropertyChanged("Analysis_Followers")
Me.OnAnalysis_FollowersChanged()
End If
End Set
End Property

Public Property Analysis_Followers_Limit() As integer
Get
Return Me._Analysis_Followers_Limit
End Get
Set(value As integer)
If (_Analysis_Followers_Limit <> value  ) Then
Me.OnAnalysis_Followers_LimitChanging(value)
Me.SendPropertyChanging()
Me._Analysis_Followers_Limit = value
Me.SendPropertyChanged("Analysis_Followers_Limit")
Me.OnAnalysis_Followers_LimitChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Account_Filter
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Account_Filter
Dim entity As Account_Filter = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Account_Id As integer
Private _Description As string = ""
Private _Filter_Json As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnDescriptionChanged()
End Sub

Partial Private Sub OnDescriptionChanging(ByVal value As string)
End Sub

Partial Private Sub OnFilter_JsonChanged()
End Sub

Partial Private Sub OnFilter_JsonChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Description() As string
Get
Return Me._Description
End Get
Set(value As string)
If (_Description <> value  Or _Description Is Nothing  ) Then
Me.OnDescriptionChanging(value)
Me.SendPropertyChanging()
Me._Description = value
Me.SendPropertyChanged("Description")
Me.OnDescriptionChanged()
End If
End Set
End Property

Public Property Filter_Json() As string
Get
Return Me._Filter_Json
End Get
Set(value As string)
If (_Filter_Json <> value  Or _Filter_Json Is Nothing  ) Then
Me.OnFilter_JsonChanging(value)
Me.SendPropertyChanging()
Me._Filter_Json = value
Me.SendPropertyChanged("Filter_Json")
Me.OnFilter_JsonChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Account_Klout
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Account_Klout
Dim entity As Account_Klout = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Klout_Code As string = ""
Private _Score As double
Private _Topics As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnKlout_CodeChanged()
End Sub

Partial Private Sub OnKlout_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnScoreChanged()
End Sub

Partial Private Sub OnScoreChanging(ByVal value As double)
End Sub

Partial Private Sub OnTopicsChanged()
End Sub

Partial Private Sub OnTopicsChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Klout_Code() As string
Get
Return Me._Klout_Code
End Get
Set(value As string)
If (_Klout_Code <> value  Or _Klout_Code Is Nothing  ) Then
Me.OnKlout_CodeChanging(value)
Me.SendPropertyChanging()
Me._Klout_Code = value
Me.SendPropertyChanged("Klout_Code")
Me.OnKlout_CodeChanged()
End If
End Set
End Property

Public Property Score() As double
Get
Return Me._Score
End Get
Set(value As double)
If (_Score <> value  ) Then
Me.OnScoreChanging(value)
Me.SendPropertyChanging()
Me._Score = value
Me.SendPropertyChanged("Score")
Me.OnScoreChanged()
End If
End Set
End Property

Public Property Topics() As string
Get
Return Me._Topics
End Get
Set(value As string)
If (_Topics <> value  Or _Topics Is Nothing  ) Then
Me.OnTopicsChanging(value)
Me.SendPropertyChanging()
Me._Topics = value
Me.SendPropertyChanged("Topics")
Me.OnTopicsChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Account_Option
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Account_Option
Dim entity As Account_Option = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Auto_Unfoll_Not_Follower As Boolean
Private _Auto_Unfoll_Not_Follower_Update As Date
Private _Follow_Day_Limit As integer
Private _Unfollow_Day_Limit As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAuto_Unfoll_Not_FollowerChanged()
End Sub

Partial Private Sub OnAuto_Unfoll_Not_FollowerChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnAuto_Unfoll_Not_Follower_UpdateChanged()
End Sub

Partial Private Sub OnAuto_Unfoll_Not_Follower_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnFollow_Day_LimitChanged()
End Sub

Partial Private Sub OnFollow_Day_LimitChanging(ByVal value As integer)
End Sub

Partial Private Sub OnUnfollow_Day_LimitChanged()
End Sub

Partial Private Sub OnUnfollow_Day_LimitChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Auto_Unfoll_Not_Follower() As Boolean
Get
Return Me._Auto_Unfoll_Not_Follower
End Get
Set(value As Boolean)
If (_Auto_Unfoll_Not_Follower <> value  ) Then
Me.OnAuto_Unfoll_Not_FollowerChanging(value)
Me.SendPropertyChanging()
Me._Auto_Unfoll_Not_Follower = value
Me.SendPropertyChanged("Auto_Unfoll_Not_Follower")
Me.OnAuto_Unfoll_Not_FollowerChanged()
End If
End Set
End Property

Public Property Auto_Unfoll_Not_Follower_Update() As Date
Get
Return Me._Auto_Unfoll_Not_Follower_Update
End Get
Set(value As Date)
If (_Auto_Unfoll_Not_Follower_Update <> value  ) Then
Me.OnAuto_Unfoll_Not_Follower_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Auto_Unfoll_Not_Follower_Update = value
Me.SendPropertyChanged("Auto_Unfoll_Not_Follower_Update")
Me.OnAuto_Unfoll_Not_Follower_UpdateChanged()
End If
End Set
End Property

Public Property Follow_Day_Limit() As integer
Get
Return Me._Follow_Day_Limit
End Get
Set(value As integer)
If (_Follow_Day_Limit <> value  ) Then
Me.OnFollow_Day_LimitChanging(value)
Me.SendPropertyChanging()
Me._Follow_Day_Limit = value
Me.SendPropertyChanged("Follow_Day_Limit")
Me.OnFollow_Day_LimitChanged()
End If
End Set
End Property

Public Property Unfollow_Day_Limit() As integer
Get
Return Me._Unfollow_Day_Limit
End Get
Set(value As integer)
If (_Unfollow_Day_Limit <> value  ) Then
Me.OnUnfollow_Day_LimitChanging(value)
Me.SendPropertyChanging()
Me._Unfollow_Day_Limit = value
Me.SendPropertyChanged("Unfollow_Day_Limit")
Me.OnUnfollow_Day_LimitChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Account_Update
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Account_Update
Dim entity As Account_Update = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Profile_Related_Update As Date
Private _Follower_Update As Date
Private _Follower_Update_Count As integer
Private _Follower_Last_Code As string = ""
Private _Follower_Account_Last_Id As integer
Private _Message_Post_Update As Date
Private _Message_Post_Last_Code As string = ""
Private _Favorite_Post_Update As Date
Private _Favorite_Post_Last_Code As string = ""
Private _Private_Post_Last_Code As string = ""
Private _Private_Post_Update As Date
Private _Share_Update As Date
Private _Share_Det_Update As Date
Private _Friend_Update As Date
Private _Friend_Update_Count As integer
Private _Friend_Last_Code As string = ""
Private _Analysis_Follower_Update As Date
Private _Analysis_Follower_Post_Update As Date
Private _Archive_Link_Id As integer
Private _Archive_Trend_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnProfile_Related_UpdateChanged()
End Sub

Partial Private Sub OnProfile_Related_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnFollower_UpdateChanged()
End Sub

Partial Private Sub OnFollower_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnFollower_Update_CountChanged()
End Sub

Partial Private Sub OnFollower_Update_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFollower_Last_CodeChanged()
End Sub

Partial Private Sub OnFollower_Last_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnFollower_Account_Last_IdChanged()
End Sub

Partial Private Sub OnFollower_Account_Last_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnMessage_Post_UpdateChanged()
End Sub

Partial Private Sub OnMessage_Post_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnMessage_Post_Last_CodeChanged()
End Sub

Partial Private Sub OnMessage_Post_Last_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnFavorite_Post_UpdateChanged()
End Sub

Partial Private Sub OnFavorite_Post_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnFavorite_Post_Last_CodeChanged()
End Sub

Partial Private Sub OnFavorite_Post_Last_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnPrivate_Post_Last_CodeChanged()
End Sub

Partial Private Sub OnPrivate_Post_Last_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnPrivate_Post_UpdateChanged()
End Sub

Partial Private Sub OnPrivate_Post_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnShare_UpdateChanged()
End Sub

Partial Private Sub OnShare_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnShare_Det_UpdateChanged()
End Sub

Partial Private Sub OnShare_Det_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnFriend_UpdateChanged()
End Sub

Partial Private Sub OnFriend_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnFriend_Update_CountChanged()
End Sub

Partial Private Sub OnFriend_Update_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFriend_Last_CodeChanged()
End Sub

Partial Private Sub OnFriend_Last_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnAnalysis_Follower_UpdateChanged()
End Sub

Partial Private Sub OnAnalysis_Follower_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnAnalysis_Follower_Post_UpdateChanged()
End Sub

Partial Private Sub OnAnalysis_Follower_Post_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnArchive_Link_IdChanged()
End Sub

Partial Private Sub OnArchive_Link_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnArchive_Trend_IdChanged()
End Sub

Partial Private Sub OnArchive_Trend_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Profile_Related_Update() As Date
Get
Return Me._Profile_Related_Update
End Get
Set(value As Date)
If (_Profile_Related_Update <> value  ) Then
Me.OnProfile_Related_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Profile_Related_Update = value
Me.SendPropertyChanged("Profile_Related_Update")
Me.OnProfile_Related_UpdateChanged()
End If
End Set
End Property

Public Property Follower_Update() As Date
Get
Return Me._Follower_Update
End Get
Set(value As Date)
If (_Follower_Update <> value  ) Then
Me.OnFollower_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Follower_Update = value
Me.SendPropertyChanged("Follower_Update")
Me.OnFollower_UpdateChanged()
End If
End Set
End Property

Public Property Follower_Update_Count() As integer
Get
Return Me._Follower_Update_Count
End Get
Set(value As integer)
If (_Follower_Update_Count <> value  ) Then
Me.OnFollower_Update_CountChanging(value)
Me.SendPropertyChanging()
Me._Follower_Update_Count = value
Me.SendPropertyChanged("Follower_Update_Count")
Me.OnFollower_Update_CountChanged()
End If
End Set
End Property

Public Property Follower_Last_Code() As string
Get
Return Me._Follower_Last_Code
End Get
Set(value As string)
If (_Follower_Last_Code <> value  Or _Follower_Last_Code Is Nothing  ) Then
Me.OnFollower_Last_CodeChanging(value)
Me.SendPropertyChanging()
Me._Follower_Last_Code = value
Me.SendPropertyChanged("Follower_Last_Code")
Me.OnFollower_Last_CodeChanged()
End If
End Set
End Property

Public Property Follower_Account_Last_Id() As integer
Get
Return Me._Follower_Account_Last_Id
End Get
Set(value As integer)
If (_Follower_Account_Last_Id <> value  ) Then
Me.OnFollower_Account_Last_IdChanging(value)
Me.SendPropertyChanging()
Me._Follower_Account_Last_Id = value
Me.SendPropertyChanged("Follower_Account_Last_Id")
Me.OnFollower_Account_Last_IdChanged()
End If
End Set
End Property

Public Property Message_Post_Update() As Date
Get
Return Me._Message_Post_Update
End Get
Set(value As Date)
If (_Message_Post_Update <> value  ) Then
Me.OnMessage_Post_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Message_Post_Update = value
Me.SendPropertyChanged("Message_Post_Update")
Me.OnMessage_Post_UpdateChanged()
End If
End Set
End Property

Public Property Message_Post_Last_Code() As string
Get
Return Me._Message_Post_Last_Code
End Get
Set(value As string)
If (_Message_Post_Last_Code <> value  Or _Message_Post_Last_Code Is Nothing  ) Then
Me.OnMessage_Post_Last_CodeChanging(value)
Me.SendPropertyChanging()
Me._Message_Post_Last_Code = value
Me.SendPropertyChanged("Message_Post_Last_Code")
Me.OnMessage_Post_Last_CodeChanged()
End If
End Set
End Property

Public Property Favorite_Post_Update() As Date
Get
Return Me._Favorite_Post_Update
End Get
Set(value As Date)
If (_Favorite_Post_Update <> value  ) Then
Me.OnFavorite_Post_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Favorite_Post_Update = value
Me.SendPropertyChanged("Favorite_Post_Update")
Me.OnFavorite_Post_UpdateChanged()
End If
End Set
End Property

Public Property Favorite_Post_Last_Code() As string
Get
Return Me._Favorite_Post_Last_Code
End Get
Set(value As string)
If (_Favorite_Post_Last_Code <> value  Or _Favorite_Post_Last_Code Is Nothing  ) Then
Me.OnFavorite_Post_Last_CodeChanging(value)
Me.SendPropertyChanging()
Me._Favorite_Post_Last_Code = value
Me.SendPropertyChanged("Favorite_Post_Last_Code")
Me.OnFavorite_Post_Last_CodeChanged()
End If
End Set
End Property

Public Property Private_Post_Last_Code() As string
Get
Return Me._Private_Post_Last_Code
End Get
Set(value As string)
If (_Private_Post_Last_Code <> value  Or _Private_Post_Last_Code Is Nothing  ) Then
Me.OnPrivate_Post_Last_CodeChanging(value)
Me.SendPropertyChanging()
Me._Private_Post_Last_Code = value
Me.SendPropertyChanged("Private_Post_Last_Code")
Me.OnPrivate_Post_Last_CodeChanged()
End If
End Set
End Property

Public Property Private_Post_Update() As Date
Get
Return Me._Private_Post_Update
End Get
Set(value As Date)
If (_Private_Post_Update <> value  ) Then
Me.OnPrivate_Post_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Private_Post_Update = value
Me.SendPropertyChanged("Private_Post_Update")
Me.OnPrivate_Post_UpdateChanged()
End If
End Set
End Property

Public Property Share_Update() As Date
Get
Return Me._Share_Update
End Get
Set(value As Date)
If (_Share_Update <> value  ) Then
Me.OnShare_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Share_Update = value
Me.SendPropertyChanged("Share_Update")
Me.OnShare_UpdateChanged()
End If
End Set
End Property

Public Property Share_Det_Update() As Date
Get
Return Me._Share_Det_Update
End Get
Set(value As Date)
If (_Share_Det_Update <> value  ) Then
Me.OnShare_Det_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Share_Det_Update = value
Me.SendPropertyChanged("Share_Det_Update")
Me.OnShare_Det_UpdateChanged()
End If
End Set
End Property

Public Property Friend_Update() As Date
Get
Return Me._Friend_Update
End Get
Set(value As Date)
If (_Friend_Update <> value  ) Then
Me.OnFriend_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Friend_Update = value
Me.SendPropertyChanged("Friend_Update")
Me.OnFriend_UpdateChanged()
End If
End Set
End Property

Public Property Friend_Update_Count() As integer
Get
Return Me._Friend_Update_Count
End Get
Set(value As integer)
If (_Friend_Update_Count <> value  ) Then
Me.OnFriend_Update_CountChanging(value)
Me.SendPropertyChanging()
Me._Friend_Update_Count = value
Me.SendPropertyChanged("Friend_Update_Count")
Me.OnFriend_Update_CountChanged()
End If
End Set
End Property

Public Property Friend_Last_Code() As string
Get
Return Me._Friend_Last_Code
End Get
Set(value As string)
If (_Friend_Last_Code <> value  Or _Friend_Last_Code Is Nothing  ) Then
Me.OnFriend_Last_CodeChanging(value)
Me.SendPropertyChanging()
Me._Friend_Last_Code = value
Me.SendPropertyChanged("Friend_Last_Code")
Me.OnFriend_Last_CodeChanged()
End If
End Set
End Property

Public Property Analysis_Follower_Update() As Date
Get
Return Me._Analysis_Follower_Update
End Get
Set(value As Date)
If (_Analysis_Follower_Update <> value  ) Then
Me.OnAnalysis_Follower_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Analysis_Follower_Update = value
Me.SendPropertyChanged("Analysis_Follower_Update")
Me.OnAnalysis_Follower_UpdateChanged()
End If
End Set
End Property

Public Property Analysis_Follower_Post_Update() As Date
Get
Return Me._Analysis_Follower_Post_Update
End Get
Set(value As Date)
If (_Analysis_Follower_Post_Update <> value  ) Then
Me.OnAnalysis_Follower_Post_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Analysis_Follower_Post_Update = value
Me.SendPropertyChanged("Analysis_Follower_Post_Update")
Me.OnAnalysis_Follower_Post_UpdateChanged()
End If
End Set
End Property

Public Property Archive_Link_Id() As integer
Get
Return Me._Archive_Link_Id
End Get
Set(value As integer)
If (_Archive_Link_Id <> value  ) Then
Me.OnArchive_Link_IdChanging(value)
Me.SendPropertyChanging()
Me._Archive_Link_Id = value
Me.SendPropertyChanged("Archive_Link_Id")
Me.OnArchive_Link_IdChanged()
End If
End Set
End Property

Public Property Archive_Trend_Id() As integer
Get
Return Me._Archive_Trend_Id
End Get
Set(value As integer)
If (_Archive_Trend_Id <> value  ) Then
Me.OnArchive_Trend_IdChanging(value)
Me.SendPropertyChanging()
Me._Archive_Trend_Id = value
Me.SendPropertyChanged("Archive_Trend_Id")
Me.OnArchive_Trend_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Alert
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Alert
Dim entity As Alert = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Alert_Type_Id As integer
Private _Account_Id As integer
Private _From_Account_Id As integer
Private _Alert_Data As string = ""
Private _Alert_Date As Date

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAlert_Type_IdChanged()
End Sub

Partial Private Sub OnAlert_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFrom_Account_IdChanged()
End Sub

Partial Private Sub OnFrom_Account_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAlert_DataChanged()
End Sub

Partial Private Sub OnAlert_DataChanging(ByVal value As string)
End Sub

Partial Private Sub OnAlert_DateChanged()
End Sub

Partial Private Sub OnAlert_DateChanging(ByVal value As Date)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Alert_Type_Id() As integer
Get
Return Me._Alert_Type_Id
End Get
Set(value As integer)
If (_Alert_Type_Id <> value  ) Then
Me.OnAlert_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Alert_Type_Id = value
Me.SendPropertyChanged("Alert_Type_Id")
Me.OnAlert_Type_IdChanged()
End If
End Set
End Property

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property From_Account_Id() As integer
Get
Return Me._From_Account_Id
End Get
Set(value As integer)
If (_From_Account_Id <> value  ) Then
Me.OnFrom_Account_IdChanging(value)
Me.SendPropertyChanging()
Me._From_Account_Id = value
Me.SendPropertyChanged("From_Account_Id")
Me.OnFrom_Account_IdChanged()
End If
End Set
End Property

Public Property Alert_Data() As string
Get
Return Me._Alert_Data
End Get
Set(value As string)
If (_Alert_Data <> value  Or _Alert_Data Is Nothing  ) Then
Me.OnAlert_DataChanging(value)
Me.SendPropertyChanging()
Me._Alert_Data = value
Me.SendPropertyChanged("Alert_Data")
Me.OnAlert_DataChanged()
End If
End Set
End Property

Public Property Alert_Date() As Date
Get
Return Me._Alert_Date
End Get
Set(value As Date)
If (_Alert_Date <> value  ) Then
Me.OnAlert_DateChanging(value)
Me.SendPropertyChanging()
Me._Alert_Date = value
Me.SendPropertyChanged("Alert_Date")
Me.OnAlert_DateChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Archive_Data
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Archive_Data
Dim entity As Archive_Data = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Archive_Type_Id As integer
Private _Table_Name As string = ""
Private _Record_Count As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnArchive_Type_IdChanged()
End Sub

Partial Private Sub OnArchive_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnTable_NameChanged()
End Sub

Partial Private Sub OnTable_NameChanging(ByVal value As string)
End Sub

Partial Private Sub OnRecord_CountChanged()
End Sub

Partial Private Sub OnRecord_CountChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Archive_Type_Id() As integer
Get
Return Me._Archive_Type_Id
End Get
Set(value As integer)
If (_Archive_Type_Id <> value  ) Then
Me.OnArchive_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Archive_Type_Id = value
Me.SendPropertyChanged("Archive_Type_Id")
Me.OnArchive_Type_IdChanged()
End If
End Set
End Property

Public Property Table_Name() As string
Get
Return Me._Table_Name
End Get
Set(value As string)
If (_Table_Name <> value  Or _Table_Name Is Nothing  ) Then
Me.OnTable_NameChanging(value)
Me.SendPropertyChanging()
Me._Table_Name = value
Me.SendPropertyChanged("Table_Name")
Me.OnTable_NameChanged()
End If
End Set
End Property

Public Property Record_Count() As integer
Get
Return Me._Record_Count
End Get
Set(value As integer)
If (_Record_Count <> value  ) Then
Me.OnRecord_CountChanging(value)
Me.SendPropertyChanging()
Me._Record_Count = value
Me.SendPropertyChanged("Record_Count")
Me.OnRecord_CountChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Archive_Simil_Text
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Archive_Simil_Text
Dim entity As Archive_Simil_Text = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Archive_Id As integer
Private _Archive_Type_Id As integer
Private _Ref_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnArchive_IdChanged()
End Sub

Partial Private Sub OnArchive_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnArchive_Type_IdChanged()
End Sub

Partial Private Sub OnArchive_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnRef_IdChanged()
End Sub

Partial Private Sub OnRef_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Archive_Id() As integer
Get
Return Me._Archive_Id
End Get
Set(value As integer)
If (_Archive_Id <> value  ) Then
Me.OnArchive_IdChanging(value)
Me.SendPropertyChanging()
Me._Archive_Id = value
Me.SendPropertyChanged("Archive_Id")
Me.OnArchive_IdChanged()
End If
End Set
End Property

Public Property Archive_Type_Id() As integer
Get
Return Me._Archive_Type_Id
End Get
Set(value As integer)
If (_Archive_Type_Id <> value  ) Then
Me.OnArchive_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Archive_Type_Id = value
Me.SendPropertyChanged("Archive_Type_Id")
Me.OnArchive_Type_IdChanged()
End If
End Set
End Property

Public Property Ref_Id() As integer
Get
Return Me._Ref_Id
End Get
Set(value As integer)
If (_Ref_Id <> value  ) Then
Me.OnRef_IdChanging(value)
Me.SendPropertyChanging()
Me._Ref_Id = value
Me.SendPropertyChanged("Ref_Id")
Me.OnRef_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Auto_Follow_Account
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Auto_Follow_Account
Dim entity As Auto_Follow_Account = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Account_To_Foll_Id As integer
Private _Count_Follow As integer
Private _Status_Id As integer
Private _Update_Status_Date As Date
Private _Follow_Date As Date
Private _Unfollow_Date As Date
Private _Source_Type_Id As integer
Private _Source_Id As integer
Private _Source_Description As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_To_Foll_IdChanged()
End Sub

Partial Private Sub OnAccount_To_Foll_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnCount_FollowChanged()
End Sub

Partial Private Sub OnCount_FollowChanging(ByVal value As integer)
End Sub

Partial Private Sub OnStatus_IdChanged()
End Sub

Partial Private Sub OnStatus_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnUpdate_Status_DateChanged()
End Sub

Partial Private Sub OnUpdate_Status_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnFollow_DateChanged()
End Sub

Partial Private Sub OnFollow_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnUnfollow_DateChanged()
End Sub

Partial Private Sub OnUnfollow_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnSource_Type_IdChanged()
End Sub

Partial Private Sub OnSource_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnSource_IdChanged()
End Sub

Partial Private Sub OnSource_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnSource_DescriptionChanged()
End Sub

Partial Private Sub OnSource_DescriptionChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Account_To_Foll_Id() As integer
Get
Return Me._Account_To_Foll_Id
End Get
Set(value As integer)
If (_Account_To_Foll_Id <> value  ) Then
Me.OnAccount_To_Foll_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_To_Foll_Id = value
Me.SendPropertyChanged("Account_To_Foll_Id")
Me.OnAccount_To_Foll_IdChanged()
End If
End Set
End Property

Public Property Count_Follow() As integer
Get
Return Me._Count_Follow
End Get
Set(value As integer)
If (_Count_Follow <> value  ) Then
Me.OnCount_FollowChanging(value)
Me.SendPropertyChanging()
Me._Count_Follow = value
Me.SendPropertyChanged("Count_Follow")
Me.OnCount_FollowChanged()
End If
End Set
End Property

Public Property Status_Id() As integer
Get
Return Me._Status_Id
End Get
Set(value As integer)
If (_Status_Id <> value  ) Then
Me.OnStatus_IdChanging(value)
Me.SendPropertyChanging()
Me._Status_Id = value
Me.SendPropertyChanged("Status_Id")
Me.OnStatus_IdChanged()
End If
End Set
End Property

Public Property Update_Status_Date() As Date
Get
Return Me._Update_Status_Date
End Get
Set(value As Date)
If (_Update_Status_Date <> value  ) Then
Me.OnUpdate_Status_DateChanging(value)
Me.SendPropertyChanging()
Me._Update_Status_Date = value
Me.SendPropertyChanged("Update_Status_Date")
Me.OnUpdate_Status_DateChanged()
End If
End Set
End Property

Public Property Follow_Date() As Date
Get
Return Me._Follow_Date
End Get
Set(value As Date)
If (_Follow_Date <> value  ) Then
Me.OnFollow_DateChanging(value)
Me.SendPropertyChanging()
Me._Follow_Date = value
Me.SendPropertyChanged("Follow_Date")
Me.OnFollow_DateChanged()
End If
End Set
End Property

Public Property Unfollow_Date() As Date
Get
Return Me._Unfollow_Date
End Get
Set(value As Date)
If (_Unfollow_Date <> value  ) Then
Me.OnUnfollow_DateChanging(value)
Me.SendPropertyChanging()
Me._Unfollow_Date = value
Me.SendPropertyChanged("Unfollow_Date")
Me.OnUnfollow_DateChanged()
End If
End Set
End Property

Public Property Source_Type_Id() As integer
Get
Return Me._Source_Type_Id
End Get
Set(value As integer)
If (_Source_Type_Id <> value  ) Then
Me.OnSource_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Source_Type_Id = value
Me.SendPropertyChanged("Source_Type_Id")
Me.OnSource_Type_IdChanged()
End If
End Set
End Property

Public Property Source_Id() As integer
Get
Return Me._Source_Id
End Get
Set(value As integer)
If (_Source_Id <> value  ) Then
Me.OnSource_IdChanging(value)
Me.SendPropertyChanging()
Me._Source_Id = value
Me.SendPropertyChanged("Source_Id")
Me.OnSource_IdChanged()
End If
End Set
End Property

Public Property Source_Description() As string
Get
Return Me._Source_Description
End Get
Set(value As string)
If (_Source_Description <> value  Or _Source_Description Is Nothing  ) Then
Me.OnSource_DescriptionChanging(value)
Me.SendPropertyChanging()
Me._Source_Description = value
Me.SendPropertyChanged("Source_Description")
Me.OnSource_DescriptionChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Auto_Follow_Profile
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Auto_Follow_Profile
Dim entity As Auto_Follow_Profile = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Profile_Account_Id As integer
Private _Followed_Update As Date
Private _Follower_Last_Code As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnProfile_Account_IdChanged()
End Sub

Partial Private Sub OnProfile_Account_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFollowed_UpdateChanged()
End Sub

Partial Private Sub OnFollowed_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnFollower_Last_CodeChanged()
End Sub

Partial Private Sub OnFollower_Last_CodeChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Profile_Account_Id() As integer
Get
Return Me._Profile_Account_Id
End Get
Set(value As integer)
If (_Profile_Account_Id <> value  ) Then
Me.OnProfile_Account_IdChanging(value)
Me.SendPropertyChanging()
Me._Profile_Account_Id = value
Me.SendPropertyChanged("Profile_Account_Id")
Me.OnProfile_Account_IdChanged()
End If
End Set
End Property

Public Property Followed_Update() As Date
Get
Return Me._Followed_Update
End Get
Set(value As Date)
If (_Followed_Update <> value  ) Then
Me.OnFollowed_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Followed_Update = value
Me.SendPropertyChanged("Followed_Update")
Me.OnFollowed_UpdateChanged()
End If
End Set
End Property

Public Property Follower_Last_Code() As string
Get
Return Me._Follower_Last_Code
End Get
Set(value As string)
If (_Follower_Last_Code <> value  Or _Follower_Last_Code Is Nothing  ) Then
Me.OnFollower_Last_CodeChanging(value)
Me.SendPropertyChanging()
Me._Follower_Last_Code = value
Me.SendPropertyChanged("Follower_Last_Code")
Me.OnFollower_Last_CodeChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Auto_Follow_Query
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Auto_Follow_Query
Dim entity As Auto_Follow_Query = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Query_Id As integer
Private _Followed_Update As Date
Private _Accuracy_Total_Account As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnQuery_IdChanged()
End Sub

Partial Private Sub OnQuery_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFollowed_UpdateChanged()
End Sub

Partial Private Sub OnFollowed_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnAccuracy_Total_AccountChanged()
End Sub

Partial Private Sub OnAccuracy_Total_AccountChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Query_Id() As integer
Get
Return Me._Query_Id
End Get
Set(value As integer)
If (_Query_Id <> value  ) Then
Me.OnQuery_IdChanging(value)
Me.SendPropertyChanging()
Me._Query_Id = value
Me.SendPropertyChanged("Query_Id")
Me.OnQuery_IdChanged()
End If
End Set
End Property

Public Property Followed_Update() As Date
Get
Return Me._Followed_Update
End Get
Set(value As Date)
If (_Followed_Update <> value  ) Then
Me.OnFollowed_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Followed_Update = value
Me.SendPropertyChanged("Followed_Update")
Me.OnFollowed_UpdateChanged()
End If
End Set
End Property

Public Property Accuracy_Total_Account() As integer
Get
Return Me._Accuracy_Total_Account
End Get
Set(value As integer)
If (_Accuracy_Total_Account <> value  ) Then
Me.OnAccuracy_Total_AccountChanging(value)
Me.SendPropertyChanging()
Me._Accuracy_Total_Account = value
Me.SendPropertyChanged("Accuracy_Total_Account")
Me.OnAccuracy_Total_AccountChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Categorize
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Categorize
Dim entity As Categorize = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As uinteger
Private _Description As string = ""
Private _Query As string = ""
Private _Folder_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As uinteger)
End Sub

Partial Private Sub OnDescriptionChanged()
End Sub

Partial Private Sub OnDescriptionChanging(ByVal value As string)
End Sub

Partial Private Sub OnQueryChanged()
End Sub

Partial Private Sub OnQueryChanging(ByVal value As string)
End Sub

Partial Private Sub OnFolder_IdChanged()
End Sub

Partial Private Sub OnFolder_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As uinteger
Get
Return Me._Id
End Get
Set(value As uinteger)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Description() As string
Get
Return Me._Description
End Get
Set(value As string)
If (_Description <> value  Or _Description Is Nothing  ) Then
Me.OnDescriptionChanging(value)
Me.SendPropertyChanging()
Me._Description = value
Me.SendPropertyChanged("Description")
Me.OnDescriptionChanged()
End If
End Set
End Property

Public Property Query() As string
Get
Return Me._Query
End Get
Set(value As string)
If (_Query <> value  Or _Query Is Nothing  ) Then
Me.OnQueryChanging(value)
Me.SendPropertyChanging()
Me._Query = value
Me.SendPropertyChanged("Query")
Me.OnQueryChanged()
End If
End Set
End Property

Public Property Folder_Id() As integer
Get
Return Me._Folder_Id
End Get
Set(value As integer)
If (_Folder_Id <> value  ) Then
Me.OnFolder_IdChanging(value)
Me.SendPropertyChanging()
Me._Folder_Id = value
Me.SendPropertyChanged("Folder_Id")
Me.OnFolder_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Categorize_Account
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Categorize_Account
Dim entity As Categorize_Account = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Categorize_Id As integer
Private _Account_Categozie_Id As integer
Private _Post_Total As integer
Private _Accuracy As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnCategorize_IdChanged()
End Sub

Partial Private Sub OnCategorize_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_Categozie_IdChanged()
End Sub

Partial Private Sub OnAccount_Categozie_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_TotalChanged()
End Sub

Partial Private Sub OnPost_TotalChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccuracyChanged()
End Sub

Partial Private Sub OnAccuracyChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Categorize_Id() As integer
Get
Return Me._Categorize_Id
End Get
Set(value As integer)
If (_Categorize_Id <> value  ) Then
Me.OnCategorize_IdChanging(value)
Me.SendPropertyChanging()
Me._Categorize_Id = value
Me.SendPropertyChanged("Categorize_Id")
Me.OnCategorize_IdChanged()
End If
End Set
End Property

Public Property Account_Categozie_Id() As integer
Get
Return Me._Account_Categozie_Id
End Get
Set(value As integer)
If (_Account_Categozie_Id <> value  ) Then
Me.OnAccount_Categozie_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Categozie_Id = value
Me.SendPropertyChanged("Account_Categozie_Id")
Me.OnAccount_Categozie_IdChanged()
End If
End Set
End Property

Public Property Post_Total() As integer
Get
Return Me._Post_Total
End Get
Set(value As integer)
If (_Post_Total <> value  ) Then
Me.OnPost_TotalChanging(value)
Me.SendPropertyChanging()
Me._Post_Total = value
Me.SendPropertyChanged("Post_Total")
Me.OnPost_TotalChanged()
End If
End Set
End Property

Public Property Accuracy() As integer
Get
Return Me._Accuracy
End Get
Set(value As integer)
If (_Accuracy <> value  ) Then
Me.OnAccuracyChanging(value)
Me.SendPropertyChanging()
Me._Accuracy = value
Me.SendPropertyChanged("Accuracy")
Me.OnAccuracyChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Categorize_Follower
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Categorize_Follower
Dim entity As Categorize_Follower = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Categorize_Id As integer
Private _Account_Count As integer
Private _Categorize_Update As Date
Private _Accuracy_Total_Account As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnCategorize_IdChanged()
End Sub

Partial Private Sub OnCategorize_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_CountChanged()
End Sub

Partial Private Sub OnAccount_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnCategorize_UpdateChanged()
End Sub

Partial Private Sub OnCategorize_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnAccuracy_Total_AccountChanged()
End Sub

Partial Private Sub OnAccuracy_Total_AccountChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Categorize_Id() As integer
Get
Return Me._Categorize_Id
End Get
Set(value As integer)
If (_Categorize_Id <> value  ) Then
Me.OnCategorize_IdChanging(value)
Me.SendPropertyChanging()
Me._Categorize_Id = value
Me.SendPropertyChanged("Categorize_Id")
Me.OnCategorize_IdChanged()
End If
End Set
End Property

Public Property Account_Count() As integer
Get
Return Me._Account_Count
End Get
Set(value As integer)
If (_Account_Count <> value  ) Then
Me.OnAccount_CountChanging(value)
Me.SendPropertyChanging()
Me._Account_Count = value
Me.SendPropertyChanged("Account_Count")
Me.OnAccount_CountChanged()
End If
End Set
End Property

Public Property Categorize_Update() As Date
Get
Return Me._Categorize_Update
End Get
Set(value As Date)
If (_Categorize_Update <> value  ) Then
Me.OnCategorize_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Categorize_Update = value
Me.SendPropertyChanged("Categorize_Update")
Me.OnCategorize_UpdateChanged()
End If
End Set
End Property

Public Property Accuracy_Total_Account() As integer
Get
Return Me._Accuracy_Total_Account
End Get
Set(value As integer)
If (_Accuracy_Total_Account <> value  ) Then
Me.OnAccuracy_Total_AccountChanging(value)
Me.SendPropertyChanging()
Me._Accuracy_Total_Account = value
Me.SendPropertyChanged("Accuracy_Total_Account")
Me.OnAccuracy_Total_AccountChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Dictionary_Link_It
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Dictionary_Link_It
Dim entity As Dictionary_Link_It = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Word_Id As integer
Private _Word As string = ""
Private _Word_Ref_Id As integer
Private _Type As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnWord_IdChanged()
End Sub

Partial Private Sub OnWord_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnWordChanged()
End Sub

Partial Private Sub OnWordChanging(ByVal value As string)
End Sub

Partial Private Sub OnWord_Ref_IdChanged()
End Sub

Partial Private Sub OnWord_Ref_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnTypeChanged()
End Sub

Partial Private Sub OnTypeChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Word_Id() As integer
Get
Return Me._Word_Id
End Get
Set(value As integer)
If (_Word_Id <> value  ) Then
Me.OnWord_IdChanging(value)
Me.SendPropertyChanging()
Me._Word_Id = value
Me.SendPropertyChanged("Word_Id")
Me.OnWord_IdChanged()
End If
End Set
End Property

Public Property Word() As string
Get
Return Me._Word
End Get
Set(value As string)
If (_Word <> value  Or _Word Is Nothing  ) Then
Me.OnWordChanging(value)
Me.SendPropertyChanging()
Me._Word = value
Me.SendPropertyChanged("Word")
Me.OnWordChanged()
End If
End Set
End Property

Public Property Word_Ref_Id() As integer
Get
Return Me._Word_Ref_Id
End Get
Set(value As integer)
If (_Word_Ref_Id <> value  ) Then
Me.OnWord_Ref_IdChanging(value)
Me.SendPropertyChanging()
Me._Word_Ref_Id = value
Me.SendPropertyChanged("Word_Ref_Id")
Me.OnWord_Ref_IdChanged()
End If
End Set
End Property

Public Property Type() As string
Get
Return Me._Type
End Get
Set(value As string)
If (_Type <> value  Or _Type Is Nothing  ) Then
Me.OnTypeChanging(value)
Me.SendPropertyChanging()
Me._Type = value
Me.SendPropertyChanged("Type")
Me.OnTypeChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Favorite_Post
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Favorite_Post
Dim entity As Favorite_Post = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Post_Code As string = ""
Private _Post_Text As string = ""
Private _Pubb_Date As Date

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_CodeChanged()
End Sub

Partial Private Sub OnPost_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnPost_TextChanged()
End Sub

Partial Private Sub OnPost_TextChanging(ByVal value As string)
End Sub

Partial Private Sub OnPubb_DateChanged()
End Sub

Partial Private Sub OnPubb_DateChanging(ByVal value As Date)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Post_Code() As string
Get
Return Me._Post_Code
End Get
Set(value As string)
If (_Post_Code <> value  Or _Post_Code Is Nothing  ) Then
Me.OnPost_CodeChanging(value)
Me.SendPropertyChanging()
Me._Post_Code = value
Me.SendPropertyChanged("Post_Code")
Me.OnPost_CodeChanged()
End If
End Set
End Property

Public Property Post_Text() As string
Get
Return Me._Post_Text
End Get
Set(value As string)
If (_Post_Text <> value  Or _Post_Text Is Nothing  ) Then
Me.OnPost_TextChanging(value)
Me.SendPropertyChanging()
Me._Post_Text = value
Me.SendPropertyChanged("Post_Text")
Me.OnPost_TextChanged()
End If
End Set
End Property

Public Property Pubb_Date() As Date
Get
Return Me._Pubb_Date
End Get
Set(value As Date)
If (_Pubb_Date <> value  ) Then
Me.OnPubb_DateChanging(value)
Me.SendPropertyChanging()
Me._Pubb_Date = value
Me.SendPropertyChanged("Pubb_Date")
Me.OnPubb_DateChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Feedrss
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Feedrss
Dim entity As Feedrss = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Url As string = ""
Private _Last_Modified As Date
Private _Etag As string = ""
Private _Item_Update As Date
Private _Item_Last_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnUrlChanged()
End Sub

Partial Private Sub OnUrlChanging(ByVal value As string)
End Sub

Partial Private Sub OnLast_ModifiedChanged()
End Sub

Partial Private Sub OnLast_ModifiedChanging(ByVal value As Date)
End Sub

Partial Private Sub OnEtagChanged()
End Sub

Partial Private Sub OnEtagChanging(ByVal value As string)
End Sub

Partial Private Sub OnItem_UpdateChanged()
End Sub

Partial Private Sub OnItem_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnItem_Last_IdChanged()
End Sub

Partial Private Sub OnItem_Last_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Url() As string
Get
Return Me._Url
End Get
Set(value As string)
If (_Url <> value  Or _Url Is Nothing  ) Then
Me.OnUrlChanging(value)
Me.SendPropertyChanging()
Me._Url = value
Me.SendPropertyChanged("Url")
Me.OnUrlChanged()
End If
End Set
End Property

Public Property Last_Modified() As Date
Get
Return Me._Last_Modified
End Get
Set(value As Date)
If (_Last_Modified <> value  ) Then
Me.OnLast_ModifiedChanging(value)
Me.SendPropertyChanging()
Me._Last_Modified = value
Me.SendPropertyChanged("Last_Modified")
Me.OnLast_ModifiedChanged()
End If
End Set
End Property

Public Property Etag() As string
Get
Return Me._Etag
End Get
Set(value As string)
If (_Etag <> value  Or _Etag Is Nothing  ) Then
Me.OnEtagChanging(value)
Me.SendPropertyChanging()
Me._Etag = value
Me.SendPropertyChanged("Etag")
Me.OnEtagChanged()
End If
End Set
End Property

Public Property Item_Update() As Date
Get
Return Me._Item_Update
End Get
Set(value As Date)
If (_Item_Update <> value  ) Then
Me.OnItem_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Item_Update = value
Me.SendPropertyChanged("Item_Update")
Me.OnItem_UpdateChanged()
End If
End Set
End Property

Public Property Item_Last_Id() As integer
Get
Return Me._Item_Last_Id
End Get
Set(value As integer)
If (_Item_Last_Id <> value  ) Then
Me.OnItem_Last_IdChanging(value)
Me.SendPropertyChanging()
Me._Item_Last_Id = value
Me.SendPropertyChanged("Item_Last_Id")
Me.OnItem_Last_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Feedrss_Item
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Feedrss_Item
Dim entity As Feedrss_Item = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Hash As string = ""
Private _Feedrss_Id As integer
Private _Title As string = ""
Private _Description As string = ""
Private _Link As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnHashChanged()
End Sub

Partial Private Sub OnHashChanging(ByVal value As string)
End Sub

Partial Private Sub OnFeedrss_IdChanged()
End Sub

Partial Private Sub OnFeedrss_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnTitleChanged()
End Sub

Partial Private Sub OnTitleChanging(ByVal value As string)
End Sub

Partial Private Sub OnDescriptionChanged()
End Sub

Partial Private Sub OnDescriptionChanging(ByVal value As string)
End Sub

Partial Private Sub OnLinkChanged()
End Sub

Partial Private Sub OnLinkChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Hash() As string
Get
Return Me._Hash
End Get
Set(value As string)
If (_Hash <> value  Or _Hash Is Nothing  ) Then
Me.OnHashChanging(value)
Me.SendPropertyChanging()
Me._Hash = value
Me.SendPropertyChanged("Hash")
Me.OnHashChanged()
End If
End Set
End Property

Public Property Feedrss_Id() As integer
Get
Return Me._Feedrss_Id
End Get
Set(value As integer)
If (_Feedrss_Id <> value  ) Then
Me.OnFeedrss_IdChanging(value)
Me.SendPropertyChanging()
Me._Feedrss_Id = value
Me.SendPropertyChanged("Feedrss_Id")
Me.OnFeedrss_IdChanged()
End If
End Set
End Property

Public Property Title() As string
Get
Return Me._Title
End Get
Set(value As string)
If (_Title <> value  Or _Title Is Nothing  ) Then
Me.OnTitleChanging(value)
Me.SendPropertyChanging()
Me._Title = value
Me.SendPropertyChanged("Title")
Me.OnTitleChanged()
End If
End Set
End Property

Public Property Description() As string
Get
Return Me._Description
End Get
Set(value As string)
If (_Description <> value  Or _Description Is Nothing  ) Then
Me.OnDescriptionChanging(value)
Me.SendPropertyChanging()
Me._Description = value
Me.SendPropertyChanged("Description")
Me.OnDescriptionChanged()
End If
End Set
End Property

Public Property Link() As string
Get
Return Me._Link
End Get
Set(value As string)
If (_Link <> value  Or _Link Is Nothing  ) Then
Me.OnLinkChanging(value)
Me.SendPropertyChanging()
Me._Link = value
Me.SendPropertyChanged("Link")
Me.OnLinkChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Folder
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Folder
Dim entity As Folder = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Ref_Id As integer
Private _Folder As string = ""
Private _User_Id As integer
Private _Folder_Type_Id As integer
Private _Folder_Parent_Id As integer
Private _Is_Shared As Boolean

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnRef_IdChanged()
End Sub

Partial Private Sub OnRef_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFolderChanged()
End Sub

Partial Private Sub OnFolderChanging(ByVal value As string)
End Sub

Partial Private Sub OnUser_IdChanged()
End Sub

Partial Private Sub OnUser_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFolder_Type_IdChanged()
End Sub

Partial Private Sub OnFolder_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFolder_Parent_IdChanged()
End Sub

Partial Private Sub OnFolder_Parent_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnIs_SharedChanged()
End Sub

Partial Private Sub OnIs_SharedChanging(ByVal value As Boolean)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Ref_Id() As integer
Get
Return Me._Ref_Id
End Get
Set(value As integer)
If (_Ref_Id <> value  ) Then
Me.OnRef_IdChanging(value)
Me.SendPropertyChanging()
Me._Ref_Id = value
Me.SendPropertyChanged("Ref_Id")
Me.OnRef_IdChanged()
End If
End Set
End Property

Public Property Folder() As string
Get
Return Me._Folder
End Get
Set(value As string)
If (_Folder <> value  Or _Folder Is Nothing  ) Then
Me.OnFolderChanging(value)
Me.SendPropertyChanging()
Me._Folder = value
Me.SendPropertyChanged("Folder")
Me.OnFolderChanged()
End If
End Set
End Property

Public Property User_Id() As integer
Get
Return Me._User_Id
End Get
Set(value As integer)
If (_User_Id <> value  ) Then
Me.OnUser_IdChanging(value)
Me.SendPropertyChanging()
Me._User_Id = value
Me.SendPropertyChanged("User_Id")
Me.OnUser_IdChanged()
End If
End Set
End Property

Public Property Folder_Type_Id() As integer
Get
Return Me._Folder_Type_Id
End Get
Set(value As integer)
If (_Folder_Type_Id <> value  ) Then
Me.OnFolder_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Folder_Type_Id = value
Me.SendPropertyChanged("Folder_Type_Id")
Me.OnFolder_Type_IdChanged()
End If
End Set
End Property

Public Property Folder_Parent_Id() As integer
Get
Return Me._Folder_Parent_Id
End Get
Set(value As integer)
If (_Folder_Parent_Id <> value  ) Then
Me.OnFolder_Parent_IdChanging(value)
Me.SendPropertyChanging()
Me._Folder_Parent_Id = value
Me.SendPropertyChanged("Folder_Parent_Id")
Me.OnFolder_Parent_IdChanged()
End If
End Set
End Property

Public Property Is_Shared() As Boolean
Get
Return Me._Is_Shared
End Get
Set(value As Boolean)
If (_Is_Shared <> value  ) Then
Me.OnIs_SharedChanging(value)
Me.SendPropertyChanging()
Me._Is_Shared = value
Me.SendPropertyChanged("Is_Shared")
Me.OnIs_SharedChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Follower_Analysis
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Follower_Analysis
Dim entity As Follower_Analysis = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Analysis_Type_Id As integer
Private _Data_Type_Id As integer
Private _Value As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAnalysis_Type_IdChanged()
End Sub

Partial Private Sub OnAnalysis_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnData_Type_IdChanged()
End Sub

Partial Private Sub OnData_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnValueChanged()
End Sub

Partial Private Sub OnValueChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Analysis_Type_Id() As integer
Get
Return Me._Analysis_Type_Id
End Get
Set(value As integer)
If (_Analysis_Type_Id <> value  ) Then
Me.OnAnalysis_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Analysis_Type_Id = value
Me.SendPropertyChanged("Analysis_Type_Id")
Me.OnAnalysis_Type_IdChanged()
End If
End Set
End Property

Public Property Data_Type_Id() As integer
Get
Return Me._Data_Type_Id
End Get
Set(value As integer)
If (_Data_Type_Id <> value  ) Then
Me.OnData_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Data_Type_Id = value
Me.SendPropertyChanged("Data_Type_Id")
Me.OnData_Type_IdChanged()
End If
End Set
End Property

Public Property Value() As integer
Get
Return Me._Value
End Get
Set(value As integer)
If (_Value <> value  ) Then
Me.OnValueChanging(value)
Me.SendPropertyChanging()
Me._Value = value
Me.SendPropertyChanged("Value")
Me.OnValueChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Gender_Db_1
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Gender_Db_1
Dim entity As Gender_Db_1 = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Name As string = ""
Private _Gender As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnNameChanged()
End Sub

Partial Private Sub OnNameChanging(ByVal value As string)
End Sub

Partial Private Sub OnGenderChanged()
End Sub

Partial Private Sub OnGenderChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Name() As string
Get
Return Me._Name
End Get
Set(value As string)
If (_Name <> value  Or _Name Is Nothing  ) Then
Me.OnNameChanging(value)
Me.SendPropertyChanging()
Me._Name = value
Me.SendPropertyChanged("Name")
Me.OnNameChanged()
End If
End Set
End Property

Public Property Gender() As string
Get
Return Me._Gender
End Get
Set(value As string)
If (_Gender <> value  Or _Gender Is Nothing  ) Then
Me.OnGenderChanging(value)
Me.SendPropertyChanging()
Me._Gender = value
Me.SendPropertyChanged("Gender")
Me.OnGenderChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Gender_Db_2
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Gender_Db_2
Dim entity As Gender_Db_2 = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Name As string = ""
Private _Gender As string = ""
Private _Gender_Type_Id As integer
Private _Lang As string = ""
Private _Freq As double

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnNameChanged()
End Sub

Partial Private Sub OnNameChanging(ByVal value As string)
End Sub

Partial Private Sub OnGenderChanged()
End Sub

Partial Private Sub OnGenderChanging(ByVal value As string)
End Sub

Partial Private Sub OnGender_Type_IdChanged()
End Sub

Partial Private Sub OnGender_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnLangChanged()
End Sub

Partial Private Sub OnLangChanging(ByVal value As string)
End Sub

Partial Private Sub OnFreqChanged()
End Sub

Partial Private Sub OnFreqChanging(ByVal value As double)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Name() As string
Get
Return Me._Name
End Get
Set(value As string)
If (_Name <> value  Or _Name Is Nothing  ) Then
Me.OnNameChanging(value)
Me.SendPropertyChanging()
Me._Name = value
Me.SendPropertyChanged("Name")
Me.OnNameChanged()
End If
End Set
End Property

Public Property Gender() As string
Get
Return Me._Gender
End Get
Set(value As string)
If (_Gender <> value  Or _Gender Is Nothing  ) Then
Me.OnGenderChanging(value)
Me.SendPropertyChanging()
Me._Gender = value
Me.SendPropertyChanged("Gender")
Me.OnGenderChanged()
End If
End Set
End Property

Public Property Gender_Type_Id() As integer
Get
Return Me._Gender_Type_Id
End Get
Set(value As integer)
If (_Gender_Type_Id <> value  ) Then
Me.OnGender_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Gender_Type_Id = value
Me.SendPropertyChanged("Gender_Type_Id")
Me.OnGender_Type_IdChanged()
End If
End Set
End Property

Public Property Lang() As string
Get
Return Me._Lang
End Get
Set(value As string)
If (_Lang <> value  Or _Lang Is Nothing  ) Then
Me.OnLangChanging(value)
Me.SendPropertyChanging()
Me._Lang = value
Me.SendPropertyChanged("Lang")
Me.OnLangChanged()
End If
End Set
End Property

Public Property Freq() As double
Get
Return Me._Freq
End Get
Set(value As double)
If (_Freq <> value  ) Then
Me.OnFreqChanging(value)
Me.SendPropertyChanging()
Me._Freq = value
Me.SendPropertyChanged("Freq")
Me.OnFreqChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Gender_Name
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Gender_Name
Dim entity As Gender_Name = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Name As string = ""
Private _Gender_Type_Id As sbyte
Private _Lang As string = ""
Private _Freq As double

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnNameChanged()
End Sub

Partial Private Sub OnNameChanging(ByVal value As string)
End Sub

Partial Private Sub OnGender_Type_IdChanged()
End Sub

Partial Private Sub OnGender_Type_IdChanging(ByVal value As sbyte)
End Sub

Partial Private Sub OnLangChanged()
End Sub

Partial Private Sub OnLangChanging(ByVal value As string)
End Sub

Partial Private Sub OnFreqChanged()
End Sub

Partial Private Sub OnFreqChanging(ByVal value As double)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Name() As string
Get
Return Me._Name
End Get
Set(value As string)
If (_Name <> value  Or _Name Is Nothing  ) Then
Me.OnNameChanging(value)
Me.SendPropertyChanging()
Me._Name = value
Me.SendPropertyChanged("Name")
Me.OnNameChanged()
End If
End Set
End Property

Public Property Gender_Type_Id() As sbyte
Get
Return Me._Gender_Type_Id
End Get
Set(value As sbyte)
If (_Gender_Type_Id <> value  ) Then
Me.OnGender_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Gender_Type_Id = value
Me.SendPropertyChanged("Gender_Type_Id")
Me.OnGender_Type_IdChanged()
End If
End Set
End Property

Public Property Lang() As string
Get
Return Me._Lang
End Get
Set(value As string)
If (_Lang <> value  Or _Lang Is Nothing  ) Then
Me.OnLangChanging(value)
Me.SendPropertyChanging()
Me._Lang = value
Me.SendPropertyChanged("Lang")
Me.OnLangChanged()
End If
End Set
End Property

Public Property Freq() As double
Get
Return Me._Freq
End Get
Set(value As double)
If (_Freq <> value  ) Then
Me.OnFreqChanging(value)
Me.SendPropertyChanging()
Me._Freq = value
Me.SendPropertyChanged("Freq")
Me.OnFreqChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Gender_Name_Copy
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Gender_Name_Copy
Dim entity As Gender_Name_Copy = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Name As string = ""
Private _Gender_Type_Id1 As sbyte
Private _Gender_Type_Id2 As sbyte

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnNameChanged()
End Sub

Partial Private Sub OnNameChanging(ByVal value As string)
End Sub

Partial Private Sub OnGender_Type_Id1Changed()
End Sub

Partial Private Sub OnGender_Type_Id1Changing(ByVal value As sbyte)
End Sub

Partial Private Sub OnGender_Type_Id2Changed()
End Sub

Partial Private Sub OnGender_Type_Id2Changing(ByVal value As sbyte)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Name() As string
Get
Return Me._Name
End Get
Set(value As string)
If (_Name <> value  Or _Name Is Nothing  ) Then
Me.OnNameChanging(value)
Me.SendPropertyChanging()
Me._Name = value
Me.SendPropertyChanged("Name")
Me.OnNameChanged()
End If
End Set
End Property

Public Property Gender_Type_Id1() As sbyte
Get
Return Me._Gender_Type_Id1
End Get
Set(value As sbyte)
If (_Gender_Type_Id1 <> value  ) Then
Me.OnGender_Type_Id1Changing(value)
Me.SendPropertyChanging()
Me._Gender_Type_Id1 = value
Me.SendPropertyChanged("Gender_Type_Id1")
Me.OnGender_Type_Id1Changed()
End If
End Set
End Property

Public Property Gender_Type_Id2() As sbyte
Get
Return Me._Gender_Type_Id2
End Get
Set(value As sbyte)
If (_Gender_Type_Id2 <> value  ) Then
Me.OnGender_Type_Id2Changing(value)
Me.SendPropertyChanging()
Me._Gender_Type_Id2 = value
Me.SendPropertyChanged("Gender_Type_Id2")
Me.OnGender_Type_Id2Changed()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Group_Account
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Group_Account
Dim entity As Group_Account = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _User_Id As integer
Private _Group_Type_Id As integer
Private _Description As string = ""
Private _Account_Ids_Json As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnUser_IdChanged()
End Sub

Partial Private Sub OnUser_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnGroup_Type_IdChanged()
End Sub

Partial Private Sub OnGroup_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnDescriptionChanged()
End Sub

Partial Private Sub OnDescriptionChanging(ByVal value As string)
End Sub

Partial Private Sub OnAccount_Ids_JsonChanged()
End Sub

Partial Private Sub OnAccount_Ids_JsonChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property User_Id() As integer
Get
Return Me._User_Id
End Get
Set(value As integer)
If (_User_Id <> value  ) Then
Me.OnUser_IdChanging(value)
Me.SendPropertyChanging()
Me._User_Id = value
Me.SendPropertyChanged("User_Id")
Me.OnUser_IdChanged()
End If
End Set
End Property

Public Property Group_Type_Id() As integer
Get
Return Me._Group_Type_Id
End Get
Set(value As integer)
If (_Group_Type_Id <> value  ) Then
Me.OnGroup_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Group_Type_Id = value
Me.SendPropertyChanged("Group_Type_Id")
Me.OnGroup_Type_IdChanged()
End If
End Set
End Property

Public Property Description() As string
Get
Return Me._Description
End Get
Set(value As string)
If (_Description <> value  Or _Description Is Nothing  ) Then
Me.OnDescriptionChanging(value)
Me.SendPropertyChanging()
Me._Description = value
Me.SendPropertyChanged("Description")
Me.OnDescriptionChanged()
End If
End Set
End Property

Public Property Account_Ids_Json() As string
Get
Return Me._Account_Ids_Json
End Get
Set(value As string)
If (_Account_Ids_Json <> value  Or _Account_Ids_Json Is Nothing  ) Then
Me.OnAccount_Ids_JsonChanging(value)
Me.SendPropertyChanging()
Me._Account_Ids_Json = value
Me.SendPropertyChanged("Account_Ids_Json")
Me.OnAccount_Ids_JsonChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Group_Query
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Group_Query
Dim entity As Group_Query = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _User_Id As integer
Private _Group_Type_Id As integer
Private _Description As string = ""
Private _Query_Ids_Json As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnUser_IdChanged()
End Sub

Partial Private Sub OnUser_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnGroup_Type_IdChanged()
End Sub

Partial Private Sub OnGroup_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnDescriptionChanged()
End Sub

Partial Private Sub OnDescriptionChanging(ByVal value As string)
End Sub

Partial Private Sub OnQuery_Ids_JsonChanged()
End Sub

Partial Private Sub OnQuery_Ids_JsonChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property User_Id() As integer
Get
Return Me._User_Id
End Get
Set(value As integer)
If (_User_Id <> value  ) Then
Me.OnUser_IdChanging(value)
Me.SendPropertyChanging()
Me._User_Id = value
Me.SendPropertyChanged("User_Id")
Me.OnUser_IdChanged()
End If
End Set
End Property

Public Property Group_Type_Id() As integer
Get
Return Me._Group_Type_Id
End Get
Set(value As integer)
If (_Group_Type_Id <> value  ) Then
Me.OnGroup_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Group_Type_Id = value
Me.SendPropertyChanged("Group_Type_Id")
Me.OnGroup_Type_IdChanged()
End If
End Set
End Property

Public Property Description() As string
Get
Return Me._Description
End Get
Set(value As string)
If (_Description <> value  Or _Description Is Nothing  ) Then
Me.OnDescriptionChanging(value)
Me.SendPropertyChanging()
Me._Description = value
Me.SendPropertyChanged("Description")
Me.OnDescriptionChanged()
End If
End Set
End Property

Public Property Query_Ids_Json() As string
Get
Return Me._Query_Ids_Json
End Get
Set(value As string)
If (_Query_Ids_Json <> value  Or _Query_Ids_Json Is Nothing  ) Then
Me.OnQuery_Ids_JsonChanging(value)
Me.SendPropertyChanging()
Me._Query_Ids_Json = value
Me.SendPropertyChanged("Query_Ids_Json")
Me.OnQuery_Ids_JsonChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Language
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Language
Dim entity As Language = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Lang_Code As string = ""
Private _Language As string = ""
Private _Language_En As string = ""
Private _Native_Name As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnLang_CodeChanged()
End Sub

Partial Private Sub OnLang_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnLanguageChanged()
End Sub

Partial Private Sub OnLanguageChanging(ByVal value As string)
End Sub

Partial Private Sub OnLanguage_EnChanged()
End Sub

Partial Private Sub OnLanguage_EnChanging(ByVal value As string)
End Sub

Partial Private Sub OnNative_NameChanged()
End Sub

Partial Private Sub OnNative_NameChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Lang_Code() As string
Get
Return Me._Lang_Code
End Get
Set(value As string)
If (_Lang_Code <> value  Or _Lang_Code Is Nothing  ) Then
Me.OnLang_CodeChanging(value)
Me.SendPropertyChanging()
Me._Lang_Code = value
Me.SendPropertyChanged("Lang_Code")
Me.OnLang_CodeChanged()
End If
End Set
End Property

Public Property Language() As string
Get
Return Me._Language
End Get
Set(value As string)
If (_Language <> value  Or _Language Is Nothing  ) Then
Me.OnLanguageChanging(value)
Me.SendPropertyChanging()
Me._Language = value
Me.SendPropertyChanged("Language")
Me.OnLanguageChanged()
End If
End Set
End Property

Public Property Language_En() As string
Get
Return Me._Language_En
End Get
Set(value As string)
If (_Language_En <> value  Or _Language_En Is Nothing  ) Then
Me.OnLanguage_EnChanging(value)
Me.SendPropertyChanging()
Me._Language_En = value
Me.SendPropertyChanged("Language_En")
Me.OnLanguage_EnChanged()
End If
End Set
End Property

Public Property Native_Name() As string
Get
Return Me._Native_Name
End Get
Set(value As string)
If (_Native_Name <> value  Or _Native_Name Is Nothing  ) Then
Me.OnNative_NameChanging(value)
Me.SendPropertyChanging()
Me._Native_Name = value
Me.SendPropertyChanged("Native_Name")
Me.OnNative_NameChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Language_Copy
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Language_Copy
Dim entity As Language_Copy = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Lang_Code As string = ""
Private _Language As string = ""
Private _Native_Name As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnLang_CodeChanged()
End Sub

Partial Private Sub OnLang_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnLanguageChanged()
End Sub

Partial Private Sub OnLanguageChanging(ByVal value As string)
End Sub

Partial Private Sub OnNative_NameChanged()
End Sub

Partial Private Sub OnNative_NameChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Lang_Code() As string
Get
Return Me._Lang_Code
End Get
Set(value As string)
If (_Lang_Code <> value  Or _Lang_Code Is Nothing  ) Then
Me.OnLang_CodeChanging(value)
Me.SendPropertyChanging()
Me._Lang_Code = value
Me.SendPropertyChanged("Lang_Code")
Me.OnLang_CodeChanged()
End If
End Set
End Property

Public Property Language() As string
Get
Return Me._Language
End Get
Set(value As string)
If (_Language <> value  Or _Language Is Nothing  ) Then
Me.OnLanguageChanging(value)
Me.SendPropertyChanging()
Me._Language = value
Me.SendPropertyChanged("Language")
Me.OnLanguageChanged()
End If
End Set
End Property

Public Property Native_Name() As string
Get
Return Me._Native_Name
End Get
Set(value As string)
If (_Native_Name <> value  Or _Native_Name Is Nothing  ) Then
Me.OnNative_NameChanging(value)
Me.SendPropertyChanging()
Me._Native_Name = value
Me.SendPropertyChanged("Native_Name")
Me.OnNative_NameChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Language_Copy1
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Language_Copy1
Dim entity As Language_Copy1 = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Lang_Code As string = ""
Private _Language As string = ""
Private _Language_En As string = ""
Private _Native_Name As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnLang_CodeChanged()
End Sub

Partial Private Sub OnLang_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnLanguageChanged()
End Sub

Partial Private Sub OnLanguageChanging(ByVal value As string)
End Sub

Partial Private Sub OnLanguage_EnChanged()
End Sub

Partial Private Sub OnLanguage_EnChanging(ByVal value As string)
End Sub

Partial Private Sub OnNative_NameChanged()
End Sub

Partial Private Sub OnNative_NameChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Lang_Code() As string
Get
Return Me._Lang_Code
End Get
Set(value As string)
If (_Lang_Code <> value  Or _Lang_Code Is Nothing  ) Then
Me.OnLang_CodeChanging(value)
Me.SendPropertyChanging()
Me._Lang_Code = value
Me.SendPropertyChanged("Lang_Code")
Me.OnLang_CodeChanged()
End If
End Set
End Property

Public Property Language() As string
Get
Return Me._Language
End Get
Set(value As string)
If (_Language <> value  Or _Language Is Nothing  ) Then
Me.OnLanguageChanging(value)
Me.SendPropertyChanging()
Me._Language = value
Me.SendPropertyChanged("Language")
Me.OnLanguageChanged()
End If
End Set
End Property

Public Property Language_En() As string
Get
Return Me._Language_En
End Get
Set(value As string)
If (_Language_En <> value  Or _Language_En Is Nothing  ) Then
Me.OnLanguage_EnChanging(value)
Me.SendPropertyChanging()
Me._Language_En = value
Me.SendPropertyChanged("Language_En")
Me.OnLanguage_EnChanged()
End If
End Set
End Property

Public Property Native_Name() As string
Get
Return Me._Native_Name
End Get
Set(value As string)
If (_Native_Name <> value  Or _Native_Name Is Nothing  ) Then
Me.OnNative_NameChanging(value)
Me.SendPropertyChanging()
Me._Native_Name = value
Me.SendPropertyChanged("Native_Name")
Me.OnNative_NameChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Link
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Link
Dim entity As Link = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Short_Url As string = ""
Private _Expanded_Url As string = ""
Private _Url As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnShort_UrlChanged()
End Sub

Partial Private Sub OnShort_UrlChanging(ByVal value As string)
End Sub

Partial Private Sub OnExpanded_UrlChanged()
End Sub

Partial Private Sub OnExpanded_UrlChanging(ByVal value As string)
End Sub

Partial Private Sub OnUrlChanged()
End Sub

Partial Private Sub OnUrlChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Short_Url() As string
Get
Return Me._Short_Url
End Get
Set(value As string)
If (_Short_Url <> value  Or _Short_Url Is Nothing  ) Then
Me.OnShort_UrlChanging(value)
Me.SendPropertyChanging()
Me._Short_Url = value
Me.SendPropertyChanged("Short_Url")
Me.OnShort_UrlChanged()
End If
End Set
End Property

Public Property Expanded_Url() As string
Get
Return Me._Expanded_Url
End Get
Set(value As string)
If (_Expanded_Url <> value  Or _Expanded_Url Is Nothing  ) Then
Me.OnExpanded_UrlChanging(value)
Me.SendPropertyChanging()
Me._Expanded_Url = value
Me.SendPropertyChanged("Expanded_Url")
Me.OnExpanded_UrlChanged()
End If
End Set
End Property

Public Property Url() As string
Get
Return Me._Url
End Get
Set(value As string)
If (_Url <> value  Or _Url Is Nothing  ) Then
Me.OnUrlChanging(value)
Me.SendPropertyChanging()
Me._Url = value
Me.SendPropertyChanged("Url")
Me.OnUrlChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Link_Post
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Link_Post
Dim entity As Link_Post = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Post_Id As integer
Private _Link_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnPost_IdChanged()
End Sub

Partial Private Sub OnPost_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnLink_IdChanged()
End Sub

Partial Private Sub OnLink_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Post_Id() As integer
Get
Return Me._Post_Id
End Get
Set(value As integer)
If (_Post_Id <> value  ) Then
Me.OnPost_IdChanging(value)
Me.SendPropertyChanging()
Me._Post_Id = value
Me.SendPropertyChanged("Post_Id")
Me.OnPost_IdChanged()
End If
End Set
End Property

Public Property Link_Id() As integer
Get
Return Me._Link_Id
End Get
Set(value As integer)
If (_Link_Id <> value  ) Then
Me.OnLink_IdChanging(value)
Me.SendPropertyChanging()
Me._Link_Id = value
Me.SendPropertyChanged("Link_Id")
Me.OnLink_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class List
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As List
Dim entity As List = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _List_Code As string = ""
Private _Account_Id As integer
Private _Fullname As string = ""
Private _Description As string = ""
Private _List_Type_Id As integer
Private _Account_Count As integer
Private _Create_Date As Date
Private _List_Update As Date
Private _Updating As Boolean

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnList_CodeChanged()
End Sub

Partial Private Sub OnList_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFullnameChanged()
End Sub

Partial Private Sub OnFullnameChanging(ByVal value As string)
End Sub

Partial Private Sub OnDescriptionChanged()
End Sub

Partial Private Sub OnDescriptionChanging(ByVal value As string)
End Sub

Partial Private Sub OnList_Type_IdChanged()
End Sub

Partial Private Sub OnList_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_CountChanged()
End Sub

Partial Private Sub OnAccount_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnCreate_DateChanged()
End Sub

Partial Private Sub OnCreate_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnList_UpdateChanged()
End Sub

Partial Private Sub OnList_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnUpdatingChanged()
End Sub

Partial Private Sub OnUpdatingChanging(ByVal value As Boolean)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property List_Code() As string
Get
Return Me._List_Code
End Get
Set(value As string)
If (_List_Code <> value  Or _List_Code Is Nothing  ) Then
Me.OnList_CodeChanging(value)
Me.SendPropertyChanging()
Me._List_Code = value
Me.SendPropertyChanged("List_Code")
Me.OnList_CodeChanged()
End If
End Set
End Property

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Fullname() As string
Get
Return Me._Fullname
End Get
Set(value As string)
If (_Fullname <> value  Or _Fullname Is Nothing  ) Then
Me.OnFullnameChanging(value)
Me.SendPropertyChanging()
Me._Fullname = value
Me.SendPropertyChanged("Fullname")
Me.OnFullnameChanged()
End If
End Set
End Property

Public Property Description() As string
Get
Return Me._Description
End Get
Set(value As string)
If (_Description <> value  Or _Description Is Nothing  ) Then
Me.OnDescriptionChanging(value)
Me.SendPropertyChanging()
Me._Description = value
Me.SendPropertyChanged("Description")
Me.OnDescriptionChanged()
End If
End Set
End Property

Public Property List_Type_Id() As integer
Get
Return Me._List_Type_Id
End Get
Set(value As integer)
If (_List_Type_Id <> value  ) Then
Me.OnList_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._List_Type_Id = value
Me.SendPropertyChanged("List_Type_Id")
Me.OnList_Type_IdChanged()
End If
End Set
End Property

Public Property Account_Count() As integer
Get
Return Me._Account_Count
End Get
Set(value As integer)
If (_Account_Count <> value  ) Then
Me.OnAccount_CountChanging(value)
Me.SendPropertyChanging()
Me._Account_Count = value
Me.SendPropertyChanged("Account_Count")
Me.OnAccount_CountChanged()
End If
End Set
End Property

Public Property Create_Date() As Date
Get
Return Me._Create_Date
End Get
Set(value As Date)
If (_Create_Date <> value  ) Then
Me.OnCreate_DateChanging(value)
Me.SendPropertyChanging()
Me._Create_Date = value
Me.SendPropertyChanged("Create_Date")
Me.OnCreate_DateChanged()
End If
End Set
End Property

Public Property List_Update() As Date
Get
Return Me._List_Update
End Get
Set(value As Date)
If (_List_Update <> value  ) Then
Me.OnList_UpdateChanging(value)
Me.SendPropertyChanging()
Me._List_Update = value
Me.SendPropertyChanged("List_Update")
Me.OnList_UpdateChanged()
End If
End Set
End Property

Public Property Updating() As Boolean
Get
Return Me._Updating
End Get
Set(value As Boolean)
If (_Updating <> value  ) Then
Me.OnUpdatingChanging(value)
Me.SendPropertyChanging()
Me._Updating = value
Me.SendPropertyChanged("Updating")
Me.OnUpdatingChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class List_Account
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As List_Account
Dim entity As List_Account = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _List_Id As integer
Private _Account_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnList_IdChanged()
End Sub

Partial Private Sub OnList_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property List_Id() As integer
Get
Return Me._List_Id
End Get
Set(value As integer)
If (_List_Id <> value  ) Then
Me.OnList_IdChanging(value)
Me.SendPropertyChanging()
Me._List_Id = value
Me.SendPropertyChanged("List_Id")
Me.OnList_IdChanged()
End If
End Set
End Property

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Listen_Query
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Listen_Query
Dim entity As Listen_Query = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Query_Id As integer
Private _Listen_Disabled_View As Boolean

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnQuery_IdChanged()
End Sub

Partial Private Sub OnQuery_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnListen_Disabled_ViewChanged()
End Sub

Partial Private Sub OnListen_Disabled_ViewChanging(ByVal value As Boolean)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Query_Id() As integer
Get
Return Me._Query_Id
End Get
Set(value As integer)
If (_Query_Id <> value  ) Then
Me.OnQuery_IdChanging(value)
Me.SendPropertyChanging()
Me._Query_Id = value
Me.SendPropertyChanged("Query_Id")
Me.OnQuery_IdChanged()
End If
End Set
End Property

Public Property Listen_Disabled_View() As Boolean
Get
Return Me._Listen_Disabled_View
End Get
Set(value As Boolean)
If (_Listen_Disabled_View <> value  ) Then
Me.OnListen_Disabled_ViewChanging(value)
Me.SendPropertyChanging()
Me._Listen_Disabled_View = value
Me.SendPropertyChanged("Listen_Disabled_View")
Me.OnListen_Disabled_ViewChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Media
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Media
Dim entity As Media = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _User_Id As integer
Private _Create_Date As Date
Private _Client_File_Name As string = ""
Private _App_Url As string = ""
Private _Display_Url As string = ""
Private _Media_Url As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnUser_IdChanged()
End Sub

Partial Private Sub OnUser_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnCreate_DateChanged()
End Sub

Partial Private Sub OnCreate_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnClient_File_NameChanged()
End Sub

Partial Private Sub OnClient_File_NameChanging(ByVal value As string)
End Sub

Partial Private Sub OnApp_UrlChanged()
End Sub

Partial Private Sub OnApp_UrlChanging(ByVal value As string)
End Sub

Partial Private Sub OnDisplay_UrlChanged()
End Sub

Partial Private Sub OnDisplay_UrlChanging(ByVal value As string)
End Sub

Partial Private Sub OnMedia_UrlChanged()
End Sub

Partial Private Sub OnMedia_UrlChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property User_Id() As integer
Get
Return Me._User_Id
End Get
Set(value As integer)
If (_User_Id <> value  ) Then
Me.OnUser_IdChanging(value)
Me.SendPropertyChanging()
Me._User_Id = value
Me.SendPropertyChanged("User_Id")
Me.OnUser_IdChanged()
End If
End Set
End Property

Public Property Create_Date() As Date
Get
Return Me._Create_Date
End Get
Set(value As Date)
If (_Create_Date <> value  ) Then
Me.OnCreate_DateChanging(value)
Me.SendPropertyChanging()
Me._Create_Date = value
Me.SendPropertyChanged("Create_Date")
Me.OnCreate_DateChanged()
End If
End Set
End Property

Public Property Client_File_Name() As string
Get
Return Me._Client_File_Name
End Get
Set(value As string)
If (_Client_File_Name <> value  Or _Client_File_Name Is Nothing  ) Then
Me.OnClient_File_NameChanging(value)
Me.SendPropertyChanging()
Me._Client_File_Name = value
Me.SendPropertyChanged("Client_File_Name")
Me.OnClient_File_NameChanged()
End If
End Set
End Property

Public Property App_Url() As string
Get
Return Me._App_Url
End Get
Set(value As string)
If (_App_Url <> value  Or _App_Url Is Nothing  ) Then
Me.OnApp_UrlChanging(value)
Me.SendPropertyChanging()
Me._App_Url = value
Me.SendPropertyChanged("App_Url")
Me.OnApp_UrlChanged()
End If
End Set
End Property

Public Property Display_Url() As string
Get
Return Me._Display_Url
End Get
Set(value As string)
If (_Display_Url <> value  Or _Display_Url Is Nothing  ) Then
Me.OnDisplay_UrlChanging(value)
Me.SendPropertyChanging()
Me._Display_Url = value
Me.SendPropertyChanged("Display_Url")
Me.OnDisplay_UrlChanged()
End If
End Set
End Property

Public Property Media_Url() As string
Get
Return Me._Media_Url
End Get
Set(value As string)
If (_Media_Url <> value  Or _Media_Url Is Nothing  ) Then
Me.OnMedia_UrlChanging(value)
Me.SendPropertyChanging()
Me._Media_Url = value
Me.SendPropertyChanged("Media_Url")
Me.OnMedia_UrlChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Message_Post
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Message_Post
Dim entity As Message_Post = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Post_Code As string = ""
Private _Account_Id As integer
Private _To_Account_Id As integer
Private _Post_Text As string = ""
Private _Pubb_Date As Date
Private _Is_Share As Boolean
Private _Reply_To_Post_Code As string = ""
Private _Parent_Post_Update As Boolean
Private _Hash_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_CodeChanged()
End Sub

Partial Private Sub OnPost_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnTo_Account_IdChanged()
End Sub

Partial Private Sub OnTo_Account_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_TextChanged()
End Sub

Partial Private Sub OnPost_TextChanging(ByVal value As string)
End Sub

Partial Private Sub OnPubb_DateChanged()
End Sub

Partial Private Sub OnPubb_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnIs_ShareChanged()
End Sub

Partial Private Sub OnIs_ShareChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnReply_To_Post_CodeChanged()
End Sub

Partial Private Sub OnReply_To_Post_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnParent_Post_UpdateChanged()
End Sub

Partial Private Sub OnParent_Post_UpdateChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnHash_IdChanged()
End Sub

Partial Private Sub OnHash_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Post_Code() As string
Get
Return Me._Post_Code
End Get
Set(value As string)
If (_Post_Code <> value  Or _Post_Code Is Nothing  ) Then
Me.OnPost_CodeChanging(value)
Me.SendPropertyChanging()
Me._Post_Code = value
Me.SendPropertyChanged("Post_Code")
Me.OnPost_CodeChanged()
End If
End Set
End Property

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property To_Account_Id() As integer
Get
Return Me._To_Account_Id
End Get
Set(value As integer)
If (_To_Account_Id <> value  ) Then
Me.OnTo_Account_IdChanging(value)
Me.SendPropertyChanging()
Me._To_Account_Id = value
Me.SendPropertyChanged("To_Account_Id")
Me.OnTo_Account_IdChanged()
End If
End Set
End Property

Public Property Post_Text() As string
Get
Return Me._Post_Text
End Get
Set(value As string)
If (_Post_Text <> value  Or _Post_Text Is Nothing  ) Then
Me.OnPost_TextChanging(value)
Me.SendPropertyChanging()
Me._Post_Text = value
Me.SendPropertyChanged("Post_Text")
Me.OnPost_TextChanged()
End If
End Set
End Property

Public Property Pubb_Date() As Date
Get
Return Me._Pubb_Date
End Get
Set(value As Date)
If (_Pubb_Date <> value  ) Then
Me.OnPubb_DateChanging(value)
Me.SendPropertyChanging()
Me._Pubb_Date = value
Me.SendPropertyChanged("Pubb_Date")
Me.OnPubb_DateChanged()
End If
End Set
End Property

Public Property Is_Share() As Boolean
Get
Return Me._Is_Share
End Get
Set(value As Boolean)
If (_Is_Share <> value  ) Then
Me.OnIs_ShareChanging(value)
Me.SendPropertyChanging()
Me._Is_Share = value
Me.SendPropertyChanged("Is_Share")
Me.OnIs_ShareChanged()
End If
End Set
End Property

Public Property Reply_To_Post_Code() As string
Get
Return Me._Reply_To_Post_Code
End Get
Set(value As string)
If (_Reply_To_Post_Code <> value  Or _Reply_To_Post_Code Is Nothing  ) Then
Me.OnReply_To_Post_CodeChanging(value)
Me.SendPropertyChanging()
Me._Reply_To_Post_Code = value
Me.SendPropertyChanged("Reply_To_Post_Code")
Me.OnReply_To_Post_CodeChanged()
End If
End Set
End Property

Public Property Parent_Post_Update() As Boolean
Get
Return Me._Parent_Post_Update
End Get
Set(value As Boolean)
If (_Parent_Post_Update <> value  ) Then
Me.OnParent_Post_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Parent_Post_Update = value
Me.SendPropertyChanged("Parent_Post_Update")
Me.OnParent_Post_UpdateChanged()
End If
End Set
End Property

Public Property Hash_Id() As integer
Get
Return Me._Hash_Id
End Get
Set(value As integer)
If (_Hash_Id <> value  ) Then
Me.OnHash_IdChanging(value)
Me.SendPropertyChanging()
Me._Hash_Id = value
Me.SendPropertyChanged("Hash_Id")
Me.OnHash_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Network
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Network
Dim entity As Network = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Network_Id As integer
Private _Description As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnNetwork_IdChanged()
End Sub

Partial Private Sub OnNetwork_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnDescriptionChanged()
End Sub

Partial Private Sub OnDescriptionChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Network_Id() As integer
Get
Return Me._Network_Id
End Get
Set(value As integer)
If (_Network_Id <> value  ) Then
Me.OnNetwork_IdChanging(value)
Me.SendPropertyChanging()
Me._Network_Id = value
Me.SendPropertyChanged("Network_Id")
Me.OnNetwork_IdChanged()
End If
End Set
End Property

Public Property Description() As string
Get
Return Me._Description
End Get
Set(value As string)
If (_Description <> value  Or _Description Is Nothing  ) Then
Me.OnDescriptionChanging(value)
Me.SendPropertyChanging()
Me._Description = value
Me.SendPropertyChanged("Description")
Me.OnDescriptionChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Place
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Place
Dim entity As Place = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Place_Code As string = ""
Private _Name As string = ""
Private _Place_Type As string = ""
Private _Bounding_Box As string = ""
Private _Lat As double
Private _Lon As double
Private _Country_Code As string = ""
Private _Country As string = ""
Private _State As string = ""
Private _County As string = ""
Private _City As string = ""
Private _Locality As string = ""
Private _Accuracy As double

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPlace_CodeChanged()
End Sub

Partial Private Sub OnPlace_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnNameChanged()
End Sub

Partial Private Sub OnNameChanging(ByVal value As string)
End Sub

Partial Private Sub OnPlace_TypeChanged()
End Sub

Partial Private Sub OnPlace_TypeChanging(ByVal value As string)
End Sub

Partial Private Sub OnBounding_BoxChanged()
End Sub

Partial Private Sub OnBounding_BoxChanging(ByVal value As string)
End Sub

Partial Private Sub OnLatChanged()
End Sub

Partial Private Sub OnLatChanging(ByVal value As double)
End Sub

Partial Private Sub OnLonChanged()
End Sub

Partial Private Sub OnLonChanging(ByVal value As double)
End Sub

Partial Private Sub OnCountry_CodeChanged()
End Sub

Partial Private Sub OnCountry_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnCountryChanged()
End Sub

Partial Private Sub OnCountryChanging(ByVal value As string)
End Sub

Partial Private Sub OnStateChanged()
End Sub

Partial Private Sub OnStateChanging(ByVal value As string)
End Sub

Partial Private Sub OnCountyChanged()
End Sub

Partial Private Sub OnCountyChanging(ByVal value As string)
End Sub

Partial Private Sub OnCityChanged()
End Sub

Partial Private Sub OnCityChanging(ByVal value As string)
End Sub

Partial Private Sub OnLocalityChanged()
End Sub

Partial Private Sub OnLocalityChanging(ByVal value As string)
End Sub

Partial Private Sub OnAccuracyChanged()
End Sub

Partial Private Sub OnAccuracyChanging(ByVal value As double)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Place_Code() As string
Get
Return Me._Place_Code
End Get
Set(value As string)
If (_Place_Code <> value  Or _Place_Code Is Nothing  ) Then
Me.OnPlace_CodeChanging(value)
Me.SendPropertyChanging()
Me._Place_Code = value
Me.SendPropertyChanged("Place_Code")
Me.OnPlace_CodeChanged()
End If
End Set
End Property

Public Property Name() As string
Get
Return Me._Name
End Get
Set(value As string)
If (_Name <> value  Or _Name Is Nothing  ) Then
Me.OnNameChanging(value)
Me.SendPropertyChanging()
Me._Name = value
Me.SendPropertyChanged("Name")
Me.OnNameChanged()
End If
End Set
End Property

Public Property Place_Type() As string
Get
Return Me._Place_Type
End Get
Set(value As string)
If (_Place_Type <> value  Or _Place_Type Is Nothing  ) Then
Me.OnPlace_TypeChanging(value)
Me.SendPropertyChanging()
Me._Place_Type = value
Me.SendPropertyChanged("Place_Type")
Me.OnPlace_TypeChanged()
End If
End Set
End Property

Public Property Bounding_Box() As string
Get
Return Me._Bounding_Box
End Get
Set(value As string)
If (_Bounding_Box <> value  Or _Bounding_Box Is Nothing  ) Then
Me.OnBounding_BoxChanging(value)
Me.SendPropertyChanging()
Me._Bounding_Box = value
Me.SendPropertyChanged("Bounding_Box")
Me.OnBounding_BoxChanged()
End If
End Set
End Property

Public Property Lat() As double
Get
Return Me._Lat
End Get
Set(value As double)
If (_Lat <> value  ) Then
Me.OnLatChanging(value)
Me.SendPropertyChanging()
Me._Lat = value
Me.SendPropertyChanged("Lat")
Me.OnLatChanged()
End If
End Set
End Property

Public Property Lon() As double
Get
Return Me._Lon
End Get
Set(value As double)
If (_Lon <> value  ) Then
Me.OnLonChanging(value)
Me.SendPropertyChanging()
Me._Lon = value
Me.SendPropertyChanged("Lon")
Me.OnLonChanged()
End If
End Set
End Property

Public Property Country_Code() As string
Get
Return Me._Country_Code
End Get
Set(value As string)
If (_Country_Code <> value  Or _Country_Code Is Nothing  ) Then
Me.OnCountry_CodeChanging(value)
Me.SendPropertyChanging()
Me._Country_Code = value
Me.SendPropertyChanged("Country_Code")
Me.OnCountry_CodeChanged()
End If
End Set
End Property

Public Property Country() As string
Get
Return Me._Country
End Get
Set(value As string)
If (_Country <> value  Or _Country Is Nothing  ) Then
Me.OnCountryChanging(value)
Me.SendPropertyChanging()
Me._Country = value
Me.SendPropertyChanged("Country")
Me.OnCountryChanged()
End If
End Set
End Property

Public Property State() As string
Get
Return Me._State
End Get
Set(value As string)
If (_State <> value  Or _State Is Nothing  ) Then
Me.OnStateChanging(value)
Me.SendPropertyChanging()
Me._State = value
Me.SendPropertyChanged("State")
Me.OnStateChanged()
End If
End Set
End Property

Public Property County() As string
Get
Return Me._County
End Get
Set(value As string)
If (_County <> value  Or _County Is Nothing  ) Then
Me.OnCountyChanging(value)
Me.SendPropertyChanging()
Me._County = value
Me.SendPropertyChanged("County")
Me.OnCountyChanged()
End If
End Set
End Property

Public Property City() As string
Get
Return Me._City
End Get
Set(value As string)
If (_City <> value  Or _City Is Nothing  ) Then
Me.OnCityChanging(value)
Me.SendPropertyChanging()
Me._City = value
Me.SendPropertyChanged("City")
Me.OnCityChanged()
End If
End Set
End Property

Public Property Locality() As string
Get
Return Me._Locality
End Get
Set(value As string)
If (_Locality <> value  Or _Locality Is Nothing  ) Then
Me.OnLocalityChanging(value)
Me.SendPropertyChanging()
Me._Locality = value
Me.SendPropertyChanged("Locality")
Me.OnLocalityChanged()
End If
End Set
End Property

Public Property Accuracy() As double
Get
Return Me._Accuracy
End Get
Set(value As double)
If (_Accuracy <> value  ) Then
Me.OnAccuracyChanging(value)
Me.SendPropertyChanging()
Me._Accuracy = value
Me.SendPropertyChanged("Accuracy")
Me.OnAccuracyChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Place_Country
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Place_Country
Dim entity As Place_Country = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Country_Code As string = ""
Private _Short_Name As string = ""
Private _Long_Name As string = ""
Private _Iso3 As string = ""
Private _Numcode As string = ""
Private _Un_Member As string = ""
Private _Calling_Code As string = ""
Private _Cctld As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnCountry_CodeChanged()
End Sub

Partial Private Sub OnCountry_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnShort_NameChanged()
End Sub

Partial Private Sub OnShort_NameChanging(ByVal value As string)
End Sub

Partial Private Sub OnLong_NameChanged()
End Sub

Partial Private Sub OnLong_NameChanging(ByVal value As string)
End Sub

Partial Private Sub OnIso3Changed()
End Sub

Partial Private Sub OnIso3Changing(ByVal value As string)
End Sub

Partial Private Sub OnNumcodeChanged()
End Sub

Partial Private Sub OnNumcodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnUn_MemberChanged()
End Sub

Partial Private Sub OnUn_MemberChanging(ByVal value As string)
End Sub

Partial Private Sub OnCalling_CodeChanged()
End Sub

Partial Private Sub OnCalling_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnCctldChanged()
End Sub

Partial Private Sub OnCctldChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Country_Code() As string
Get
Return Me._Country_Code
End Get
Set(value As string)
If (_Country_Code <> value  Or _Country_Code Is Nothing  ) Then
Me.OnCountry_CodeChanging(value)
Me.SendPropertyChanging()
Me._Country_Code = value
Me.SendPropertyChanged("Country_Code")
Me.OnCountry_CodeChanged()
End If
End Set
End Property

Public Property Short_Name() As string
Get
Return Me._Short_Name
End Get
Set(value As string)
If (_Short_Name <> value  Or _Short_Name Is Nothing  ) Then
Me.OnShort_NameChanging(value)
Me.SendPropertyChanging()
Me._Short_Name = value
Me.SendPropertyChanged("Short_Name")
Me.OnShort_NameChanged()
End If
End Set
End Property

Public Property Long_Name() As string
Get
Return Me._Long_Name
End Get
Set(value As string)
If (_Long_Name <> value  Or _Long_Name Is Nothing  ) Then
Me.OnLong_NameChanging(value)
Me.SendPropertyChanging()
Me._Long_Name = value
Me.SendPropertyChanged("Long_Name")
Me.OnLong_NameChanged()
End If
End Set
End Property

Public Property Iso3() As string
Get
Return Me._Iso3
End Get
Set(value As string)
If (_Iso3 <> value  Or _Iso3 Is Nothing  ) Then
Me.OnIso3Changing(value)
Me.SendPropertyChanging()
Me._Iso3 = value
Me.SendPropertyChanged("Iso3")
Me.OnIso3Changed()
End If
End Set
End Property

Public Property Numcode() As string
Get
Return Me._Numcode
End Get
Set(value As string)
If (_Numcode <> value  Or _Numcode Is Nothing  ) Then
Me.OnNumcodeChanging(value)
Me.SendPropertyChanging()
Me._Numcode = value
Me.SendPropertyChanged("Numcode")
Me.OnNumcodeChanged()
End If
End Set
End Property

Public Property Un_Member() As string
Get
Return Me._Un_Member
End Get
Set(value As string)
If (_Un_Member <> value  Or _Un_Member Is Nothing  ) Then
Me.OnUn_MemberChanging(value)
Me.SendPropertyChanging()
Me._Un_Member = value
Me.SendPropertyChanged("Un_Member")
Me.OnUn_MemberChanged()
End If
End Set
End Property

Public Property Calling_Code() As string
Get
Return Me._Calling_Code
End Get
Set(value As string)
If (_Calling_Code <> value  Or _Calling_Code Is Nothing  ) Then
Me.OnCalling_CodeChanging(value)
Me.SendPropertyChanging()
Me._Calling_Code = value
Me.SendPropertyChanged("Calling_Code")
Me.OnCalling_CodeChanged()
End If
End Set
End Property

Public Property Cctld() As string
Get
Return Me._Cctld
End Get
Set(value As string)
If (_Cctld <> value  Or _Cctld Is Nothing  ) Then
Me.OnCctldChanging(value)
Me.SendPropertyChanging()
Me._Cctld = value
Me.SendPropertyChanged("Cctld")
Me.OnCctldChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Plan
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Plan
Dim entity As Plan = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Plan_Type_Id As integer
Private _Description As string = ""
Private _Account_Per_User As integer
Private _Follower_Per_User As integer
Private _Follower_Analysis_Per_User As integer
Private _Query_Per_User As integer
Private _Listen_Per_Account As integer
Private _Auto_Follower_Per_Account As integer
Private _Price_Month As double

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPlan_Type_IdChanged()
End Sub

Partial Private Sub OnPlan_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnDescriptionChanged()
End Sub

Partial Private Sub OnDescriptionChanging(ByVal value As string)
End Sub

Partial Private Sub OnAccount_Per_UserChanged()
End Sub

Partial Private Sub OnAccount_Per_UserChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFollower_Per_UserChanged()
End Sub

Partial Private Sub OnFollower_Per_UserChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFollower_Analysis_Per_UserChanged()
End Sub

Partial Private Sub OnFollower_Analysis_Per_UserChanging(ByVal value As integer)
End Sub

Partial Private Sub OnQuery_Per_UserChanged()
End Sub

Partial Private Sub OnQuery_Per_UserChanging(ByVal value As integer)
End Sub

Partial Private Sub OnListen_Per_AccountChanged()
End Sub

Partial Private Sub OnListen_Per_AccountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAuto_Follower_Per_AccountChanged()
End Sub

Partial Private Sub OnAuto_Follower_Per_AccountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPrice_MonthChanged()
End Sub

Partial Private Sub OnPrice_MonthChanging(ByVal value As double)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Plan_Type_Id() As integer
Get
Return Me._Plan_Type_Id
End Get
Set(value As integer)
If (_Plan_Type_Id <> value  ) Then
Me.OnPlan_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Plan_Type_Id = value
Me.SendPropertyChanged("Plan_Type_Id")
Me.OnPlan_Type_IdChanged()
End If
End Set
End Property

Public Property Description() As string
Get
Return Me._Description
End Get
Set(value As string)
If (_Description <> value  Or _Description Is Nothing  ) Then
Me.OnDescriptionChanging(value)
Me.SendPropertyChanging()
Me._Description = value
Me.SendPropertyChanged("Description")
Me.OnDescriptionChanged()
End If
End Set
End Property

Public Property Account_Per_User() As integer
Get
Return Me._Account_Per_User
End Get
Set(value As integer)
If (_Account_Per_User <> value  ) Then
Me.OnAccount_Per_UserChanging(value)
Me.SendPropertyChanging()
Me._Account_Per_User = value
Me.SendPropertyChanged("Account_Per_User")
Me.OnAccount_Per_UserChanged()
End If
End Set
End Property

Public Property Follower_Per_User() As integer
Get
Return Me._Follower_Per_User
End Get
Set(value As integer)
If (_Follower_Per_User <> value  ) Then
Me.OnFollower_Per_UserChanging(value)
Me.SendPropertyChanging()
Me._Follower_Per_User = value
Me.SendPropertyChanged("Follower_Per_User")
Me.OnFollower_Per_UserChanged()
End If
End Set
End Property

Public Property Follower_Analysis_Per_User() As integer
Get
Return Me._Follower_Analysis_Per_User
End Get
Set(value As integer)
If (_Follower_Analysis_Per_User <> value  ) Then
Me.OnFollower_Analysis_Per_UserChanging(value)
Me.SendPropertyChanging()
Me._Follower_Analysis_Per_User = value
Me.SendPropertyChanged("Follower_Analysis_Per_User")
Me.OnFollower_Analysis_Per_UserChanged()
End If
End Set
End Property

Public Property Query_Per_User() As integer
Get
Return Me._Query_Per_User
End Get
Set(value As integer)
If (_Query_Per_User <> value  ) Then
Me.OnQuery_Per_UserChanging(value)
Me.SendPropertyChanging()
Me._Query_Per_User = value
Me.SendPropertyChanged("Query_Per_User")
Me.OnQuery_Per_UserChanged()
End If
End Set
End Property

Public Property Listen_Per_Account() As integer
Get
Return Me._Listen_Per_Account
End Get
Set(value As integer)
If (_Listen_Per_Account <> value  ) Then
Me.OnListen_Per_AccountChanging(value)
Me.SendPropertyChanging()
Me._Listen_Per_Account = value
Me.SendPropertyChanged("Listen_Per_Account")
Me.OnListen_Per_AccountChanged()
End If
End Set
End Property

Public Property Auto_Follower_Per_Account() As integer
Get
Return Me._Auto_Follower_Per_Account
End Get
Set(value As integer)
If (_Auto_Follower_Per_Account <> value  ) Then
Me.OnAuto_Follower_Per_AccountChanging(value)
Me.SendPropertyChanging()
Me._Auto_Follower_Per_Account = value
Me.SendPropertyChanged("Auto_Follower_Per_Account")
Me.OnAuto_Follower_Per_AccountChanged()
End If
End Set
End Property

Public Property Price_Month() As double
Get
Return Me._Price_Month
End Get
Set(value As double)
If (_Price_Month <> value  ) Then
Me.OnPrice_MonthChanging(value)
Me.SendPropertyChanging()
Me._Price_Month = value
Me.SendPropertyChanged("Price_Month")
Me.OnPrice_MonthChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Private_Post
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Private_Post
Dim entity As Private_Post = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Post_Code As string = ""
Private _Account_Id As integer
Private _To_Account_Id As integer
Private _Post_Text As string = ""
Private _Pubb_Date As Date
Private _Is_Sent As Boolean
Private _Hash_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_CodeChanged()
End Sub

Partial Private Sub OnPost_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnTo_Account_IdChanged()
End Sub

Partial Private Sub OnTo_Account_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_TextChanged()
End Sub

Partial Private Sub OnPost_TextChanging(ByVal value As string)
End Sub

Partial Private Sub OnPubb_DateChanged()
End Sub

Partial Private Sub OnPubb_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnIs_SentChanged()
End Sub

Partial Private Sub OnIs_SentChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnHash_IdChanged()
End Sub

Partial Private Sub OnHash_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Post_Code() As string
Get
Return Me._Post_Code
End Get
Set(value As string)
If (_Post_Code <> value  Or _Post_Code Is Nothing  ) Then
Me.OnPost_CodeChanging(value)
Me.SendPropertyChanging()
Me._Post_Code = value
Me.SendPropertyChanged("Post_Code")
Me.OnPost_CodeChanged()
End If
End Set
End Property

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property To_Account_Id() As integer
Get
Return Me._To_Account_Id
End Get
Set(value As integer)
If (_To_Account_Id <> value  ) Then
Me.OnTo_Account_IdChanging(value)
Me.SendPropertyChanging()
Me._To_Account_Id = value
Me.SendPropertyChanged("To_Account_Id")
Me.OnTo_Account_IdChanged()
End If
End Set
End Property

Public Property Post_Text() As string
Get
Return Me._Post_Text
End Get
Set(value As string)
If (_Post_Text <> value  Or _Post_Text Is Nothing  ) Then
Me.OnPost_TextChanging(value)
Me.SendPropertyChanging()
Me._Post_Text = value
Me.SendPropertyChanged("Post_Text")
Me.OnPost_TextChanged()
End If
End Set
End Property

Public Property Pubb_Date() As Date
Get
Return Me._Pubb_Date
End Get
Set(value As Date)
If (_Pubb_Date <> value  ) Then
Me.OnPubb_DateChanging(value)
Me.SendPropertyChanging()
Me._Pubb_Date = value
Me.SendPropertyChanged("Pubb_Date")
Me.OnPubb_DateChanged()
End If
End Set
End Property

Public Property Is_Sent() As Boolean
Get
Return Me._Is_Sent
End Get
Set(value As Boolean)
If (_Is_Sent <> value  ) Then
Me.OnIs_SentChanging(value)
Me.SendPropertyChanging()
Me._Is_Sent = value
Me.SendPropertyChanged("Is_Sent")
Me.OnIs_SentChanged()
End If
End Set
End Property

Public Property Hash_Id() As integer
Get
Return Me._Hash_Id
End Get
Set(value As integer)
If (_Hash_Id <> value  ) Then
Me.OnHash_IdChanging(value)
Me.SendPropertyChanging()
Me._Hash_Id = value
Me.SendPropertyChanged("Hash_Id")
Me.OnHash_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Private_Post_Last
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Private_Post_Last
Dim entity As Private_Post_Last = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _To_Account_Id As integer
Private _Is_Sent As Boolean
Private _Post_Count As integer
Private _Post_Id As integer
Private _Pubb_Date As Date

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnTo_Account_IdChanged()
End Sub

Partial Private Sub OnTo_Account_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnIs_SentChanged()
End Sub

Partial Private Sub OnIs_SentChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnPost_CountChanged()
End Sub

Partial Private Sub OnPost_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_IdChanged()
End Sub

Partial Private Sub OnPost_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPubb_DateChanged()
End Sub

Partial Private Sub OnPubb_DateChanging(ByVal value As Date)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property To_Account_Id() As integer
Get
Return Me._To_Account_Id
End Get
Set(value As integer)
If (_To_Account_Id <> value  ) Then
Me.OnTo_Account_IdChanging(value)
Me.SendPropertyChanging()
Me._To_Account_Id = value
Me.SendPropertyChanged("To_Account_Id")
Me.OnTo_Account_IdChanged()
End If
End Set
End Property

Public Property Is_Sent() As Boolean
Get
Return Me._Is_Sent
End Get
Set(value As Boolean)
If (_Is_Sent <> value  ) Then
Me.OnIs_SentChanging(value)
Me.SendPropertyChanging()
Me._Is_Sent = value
Me.SendPropertyChanged("Is_Sent")
Me.OnIs_SentChanged()
End If
End Set
End Property

Public Property Post_Count() As integer
Get
Return Me._Post_Count
End Get
Set(value As integer)
If (_Post_Count <> value  ) Then
Me.OnPost_CountChanging(value)
Me.SendPropertyChanging()
Me._Post_Count = value
Me.SendPropertyChanged("Post_Count")
Me.OnPost_CountChanged()
End If
End Set
End Property

Public Property Post_Id() As integer
Get
Return Me._Post_Id
End Get
Set(value As integer)
If (_Post_Id <> value  ) Then
Me.OnPost_IdChanging(value)
Me.SendPropertyChanging()
Me._Post_Id = value
Me.SendPropertyChanged("Post_Id")
Me.OnPost_IdChanged()
End If
End Set
End Property

Public Property Pubb_Date() As Date
Get
Return Me._Pubb_Date
End Get
Set(value As Date)
If (_Pubb_Date <> value  ) Then
Me.OnPubb_DateChanging(value)
Me.SendPropertyChanging()
Me._Pubb_Date = value
Me.SendPropertyChanged("Pubb_Date")
Me.OnPubb_DateChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Private_Post_Last_Copy
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Private_Post_Last_Copy
Dim entity As Private_Post_Last_Copy = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _To_Account_Id As integer
Private _Type_Id As integer
Private _Post_Count As integer
Private _Post_Code As string = ""
Private _Post_Text As string = ""
Private _Pubb_Date As Date

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnTo_Account_IdChanged()
End Sub

Partial Private Sub OnTo_Account_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnType_IdChanged()
End Sub

Partial Private Sub OnType_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_CountChanged()
End Sub

Partial Private Sub OnPost_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_CodeChanged()
End Sub

Partial Private Sub OnPost_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnPost_TextChanged()
End Sub

Partial Private Sub OnPost_TextChanging(ByVal value As string)
End Sub

Partial Private Sub OnPubb_DateChanged()
End Sub

Partial Private Sub OnPubb_DateChanging(ByVal value As Date)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property To_Account_Id() As integer
Get
Return Me._To_Account_Id
End Get
Set(value As integer)
If (_To_Account_Id <> value  ) Then
Me.OnTo_Account_IdChanging(value)
Me.SendPropertyChanging()
Me._To_Account_Id = value
Me.SendPropertyChanged("To_Account_Id")
Me.OnTo_Account_IdChanged()
End If
End Set
End Property

Public Property Type_Id() As integer
Get
Return Me._Type_Id
End Get
Set(value As integer)
If (_Type_Id <> value  ) Then
Me.OnType_IdChanging(value)
Me.SendPropertyChanging()
Me._Type_Id = value
Me.SendPropertyChanged("Type_Id")
Me.OnType_IdChanged()
End If
End Set
End Property

Public Property Post_Count() As integer
Get
Return Me._Post_Count
End Get
Set(value As integer)
If (_Post_Count <> value  ) Then
Me.OnPost_CountChanging(value)
Me.SendPropertyChanging()
Me._Post_Count = value
Me.SendPropertyChanged("Post_Count")
Me.OnPost_CountChanged()
End If
End Set
End Property

Public Property Post_Code() As string
Get
Return Me._Post_Code
End Get
Set(value As string)
If (_Post_Code <> value  Or _Post_Code Is Nothing  ) Then
Me.OnPost_CodeChanging(value)
Me.SendPropertyChanging()
Me._Post_Code = value
Me.SendPropertyChanged("Post_Code")
Me.OnPost_CodeChanged()
End If
End Set
End Property

Public Property Post_Text() As string
Get
Return Me._Post_Text
End Get
Set(value As string)
If (_Post_Text <> value  Or _Post_Text Is Nothing  ) Then
Me.OnPost_TextChanging(value)
Me.SendPropertyChanging()
Me._Post_Text = value
Me.SendPropertyChanged("Post_Text")
Me.OnPost_TextChanged()
End If
End Set
End Property

Public Property Pubb_Date() As Date
Get
Return Me._Pubb_Date
End Get
Set(value As Date)
If (_Pubb_Date <> value  ) Then
Me.OnPubb_DateChanging(value)
Me.SendPropertyChanging()
Me._Pubb_Date = value
Me.SendPropertyChanged("Pubb_Date")
Me.OnPubb_DateChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Profile
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Profile
Dim entity As Profile = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Account_Id As integer
Private _Folder_Id As integer
Private _Post_Count As integer
Private _Post_Download_Count As integer
Private _Last_Update As Date

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFolder_IdChanged()
End Sub

Partial Private Sub OnFolder_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_CountChanged()
End Sub

Partial Private Sub OnPost_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_Download_CountChanged()
End Sub

Partial Private Sub OnPost_Download_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnLast_UpdateChanged()
End Sub

Partial Private Sub OnLast_UpdateChanging(ByVal value As Date)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Folder_Id() As integer
Get
Return Me._Folder_Id
End Get
Set(value As integer)
If (_Folder_Id <> value  ) Then
Me.OnFolder_IdChanging(value)
Me.SendPropertyChanging()
Me._Folder_Id = value
Me.SendPropertyChanged("Folder_Id")
Me.OnFolder_IdChanged()
End If
End Set
End Property

Public Property Post_Count() As integer
Get
Return Me._Post_Count
End Get
Set(value As integer)
If (_Post_Count <> value  ) Then
Me.OnPost_CountChanging(value)
Me.SendPropertyChanging()
Me._Post_Count = value
Me.SendPropertyChanged("Post_Count")
Me.OnPost_CountChanged()
End If
End Set
End Property

Public Property Post_Download_Count() As integer
Get
Return Me._Post_Download_Count
End Get
Set(value As integer)
If (_Post_Download_Count <> value  ) Then
Me.OnPost_Download_CountChanging(value)
Me.SendPropertyChanging()
Me._Post_Download_Count = value
Me.SendPropertyChanged("Post_Download_Count")
Me.OnPost_Download_CountChanged()
End If
End Set
End Property

Public Property Last_Update() As Date
Get
Return Me._Last_Update
End Get
Set(value As Date)
If (_Last_Update <> value  ) Then
Me.OnLast_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Last_Update = value
Me.SendPropertyChanged("Last_Update")
Me.OnLast_UpdateChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Promo
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Promo
Dim entity As Promo = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Description As string = ""
Private _Discount_Perc_Month As double
Private _Discount_Abs_Month As double
Private _Price_Month As double
Private _Plan_Ids_Json As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnDescriptionChanged()
End Sub

Partial Private Sub OnDescriptionChanging(ByVal value As string)
End Sub

Partial Private Sub OnDiscount_Perc_MonthChanged()
End Sub

Partial Private Sub OnDiscount_Perc_MonthChanging(ByVal value As double)
End Sub

Partial Private Sub OnDiscount_Abs_MonthChanged()
End Sub

Partial Private Sub OnDiscount_Abs_MonthChanging(ByVal value As double)
End Sub

Partial Private Sub OnPrice_MonthChanged()
End Sub

Partial Private Sub OnPrice_MonthChanging(ByVal value As double)
End Sub

Partial Private Sub OnPlan_Ids_JsonChanged()
End Sub

Partial Private Sub OnPlan_Ids_JsonChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Description() As string
Get
Return Me._Description
End Get
Set(value As string)
If (_Description <> value  Or _Description Is Nothing  ) Then
Me.OnDescriptionChanging(value)
Me.SendPropertyChanging()
Me._Description = value
Me.SendPropertyChanged("Description")
Me.OnDescriptionChanged()
End If
End Set
End Property

Public Property Discount_Perc_Month() As double
Get
Return Me._Discount_Perc_Month
End Get
Set(value As double)
If (_Discount_Perc_Month <> value  ) Then
Me.OnDiscount_Perc_MonthChanging(value)
Me.SendPropertyChanging()
Me._Discount_Perc_Month = value
Me.SendPropertyChanged("Discount_Perc_Month")
Me.OnDiscount_Perc_MonthChanged()
End If
End Set
End Property

Public Property Discount_Abs_Month() As double
Get
Return Me._Discount_Abs_Month
End Get
Set(value As double)
If (_Discount_Abs_Month <> value  ) Then
Me.OnDiscount_Abs_MonthChanging(value)
Me.SendPropertyChanging()
Me._Discount_Abs_Month = value
Me.SendPropertyChanged("Discount_Abs_Month")
Me.OnDiscount_Abs_MonthChanged()
End If
End Set
End Property

Public Property Price_Month() As double
Get
Return Me._Price_Month
End Get
Set(value As double)
If (_Price_Month <> value  ) Then
Me.OnPrice_MonthChanging(value)
Me.SendPropertyChanging()
Me._Price_Month = value
Me.SendPropertyChanged("Price_Month")
Me.OnPrice_MonthChanged()
End If
End Set
End Property

Public Property Plan_Ids_Json() As string
Get
Return Me._Plan_Ids_Json
End Get
Set(value As string)
If (_Plan_Ids_Json <> value  Or _Plan_Ids_Json Is Nothing  ) Then
Me.OnPlan_Ids_JsonChanging(value)
Me.SendPropertyChanging()
Me._Plan_Ids_Json = value
Me.SendPropertyChanged("Plan_Ids_Json")
Me.OnPlan_Ids_JsonChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Query
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Query
Dim entity As Query = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As uinteger
Private _Description As string = ""
Private _Query As string = ""
Private _Place As string = ""
Private _Place_Id As integer
Private _Network_Id As integer
Private _Folder_Id As integer
Private _Lang_Code As string = ""
Private _Post_Last_Code As string = ""
Private _Post_Count As integer
Private _Post_Download_Count As integer
Private _Last_Update As Date
Private _Archive_Post_Id As integer
Private _Archive_Account_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As uinteger)
End Sub

Partial Private Sub OnDescriptionChanged()
End Sub

Partial Private Sub OnDescriptionChanging(ByVal value As string)
End Sub

Partial Private Sub OnQueryChanged()
End Sub

Partial Private Sub OnQueryChanging(ByVal value As string)
End Sub

Partial Private Sub OnPlaceChanged()
End Sub

Partial Private Sub OnPlaceChanging(ByVal value As string)
End Sub

Partial Private Sub OnPlace_IdChanged()
End Sub

Partial Private Sub OnPlace_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnNetwork_IdChanged()
End Sub

Partial Private Sub OnNetwork_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFolder_IdChanged()
End Sub

Partial Private Sub OnFolder_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnLang_CodeChanged()
End Sub

Partial Private Sub OnLang_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnPost_Last_CodeChanged()
End Sub

Partial Private Sub OnPost_Last_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnPost_CountChanged()
End Sub

Partial Private Sub OnPost_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_Download_CountChanged()
End Sub

Partial Private Sub OnPost_Download_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnLast_UpdateChanged()
End Sub

Partial Private Sub OnLast_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnArchive_Post_IdChanged()
End Sub

Partial Private Sub OnArchive_Post_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnArchive_Account_IdChanged()
End Sub

Partial Private Sub OnArchive_Account_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As uinteger
Get
Return Me._Id
End Get
Set(value As uinteger)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Description() As string
Get
Return Me._Description
End Get
Set(value As string)
If (_Description <> value  Or _Description Is Nothing  ) Then
Me.OnDescriptionChanging(value)
Me.SendPropertyChanging()
Me._Description = value
Me.SendPropertyChanged("Description")
Me.OnDescriptionChanged()
End If
End Set
End Property

Public Property Query() As string
Get
Return Me._Query
End Get
Set(value As string)
If (_Query <> value  Or _Query Is Nothing  ) Then
Me.OnQueryChanging(value)
Me.SendPropertyChanging()
Me._Query = value
Me.SendPropertyChanged("Query")
Me.OnQueryChanged()
End If
End Set
End Property

Public Property Place() As string
Get
Return Me._Place
End Get
Set(value As string)
If (_Place <> value  Or _Place Is Nothing  ) Then
Me.OnPlaceChanging(value)
Me.SendPropertyChanging()
Me._Place = value
Me.SendPropertyChanged("Place")
Me.OnPlaceChanged()
End If
End Set
End Property

Public Property Place_Id() As integer
Get
Return Me._Place_Id
End Get
Set(value As integer)
If (_Place_Id <> value  ) Then
Me.OnPlace_IdChanging(value)
Me.SendPropertyChanging()
Me._Place_Id = value
Me.SendPropertyChanged("Place_Id")
Me.OnPlace_IdChanged()
End If
End Set
End Property

Public Property Network_Id() As integer
Get
Return Me._Network_Id
End Get
Set(value As integer)
If (_Network_Id <> value  ) Then
Me.OnNetwork_IdChanging(value)
Me.SendPropertyChanging()
Me._Network_Id = value
Me.SendPropertyChanged("Network_Id")
Me.OnNetwork_IdChanged()
End If
End Set
End Property

Public Property Folder_Id() As integer
Get
Return Me._Folder_Id
End Get
Set(value As integer)
If (_Folder_Id <> value  ) Then
Me.OnFolder_IdChanging(value)
Me.SendPropertyChanging()
Me._Folder_Id = value
Me.SendPropertyChanged("Folder_Id")
Me.OnFolder_IdChanged()
End If
End Set
End Property

Public Property Lang_Code() As string
Get
Return Me._Lang_Code
End Get
Set(value As string)
If (_Lang_Code <> value  Or _Lang_Code Is Nothing  ) Then
Me.OnLang_CodeChanging(value)
Me.SendPropertyChanging()
Me._Lang_Code = value
Me.SendPropertyChanged("Lang_Code")
Me.OnLang_CodeChanged()
End If
End Set
End Property

Public Property Post_Last_Code() As string
Get
Return Me._Post_Last_Code
End Get
Set(value As string)
If (_Post_Last_Code <> value  Or _Post_Last_Code Is Nothing  ) Then
Me.OnPost_Last_CodeChanging(value)
Me.SendPropertyChanging()
Me._Post_Last_Code = value
Me.SendPropertyChanged("Post_Last_Code")
Me.OnPost_Last_CodeChanged()
End If
End Set
End Property

Public Property Post_Count() As integer
Get
Return Me._Post_Count
End Get
Set(value As integer)
If (_Post_Count <> value  ) Then
Me.OnPost_CountChanging(value)
Me.SendPropertyChanging()
Me._Post_Count = value
Me.SendPropertyChanged("Post_Count")
Me.OnPost_CountChanged()
End If
End Set
End Property

Public Property Post_Download_Count() As integer
Get
Return Me._Post_Download_Count
End Get
Set(value As integer)
If (_Post_Download_Count <> value  ) Then
Me.OnPost_Download_CountChanging(value)
Me.SendPropertyChanging()
Me._Post_Download_Count = value
Me.SendPropertyChanged("Post_Download_Count")
Me.OnPost_Download_CountChanged()
End If
End Set
End Property

Public Property Last_Update() As Date
Get
Return Me._Last_Update
End Get
Set(value As Date)
If (_Last_Update <> value  ) Then
Me.OnLast_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Last_Update = value
Me.SendPropertyChanged("Last_Update")
Me.OnLast_UpdateChanged()
End If
End Set
End Property

Public Property Archive_Post_Id() As integer
Get
Return Me._Archive_Post_Id
End Get
Set(value As integer)
If (_Archive_Post_Id <> value  ) Then
Me.OnArchive_Post_IdChanging(value)
Me.SendPropertyChanging()
Me._Archive_Post_Id = value
Me.SendPropertyChanged("Archive_Post_Id")
Me.OnArchive_Post_IdChanged()
End If
End Set
End Property

Public Property Archive_Account_Id() As integer
Get
Return Me._Archive_Account_Id
End Get
Set(value As integer)
If (_Archive_Account_Id <> value  ) Then
Me.OnArchive_Account_IdChanging(value)
Me.SendPropertyChanging()
Me._Archive_Account_Id = value
Me.SendPropertyChanged("Archive_Account_Id")
Me.OnArchive_Account_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Schedule_Task
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Schedule_Task
Dim entity As Schedule_Task = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Name As string = ""
Private _Start_Date As Date
Private _Stop_Date As Date
Private _Status_Id As integer
Private _Status As string = ""
Private _Last_Result As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnNameChanged()
End Sub

Partial Private Sub OnNameChanging(ByVal value As string)
End Sub

Partial Private Sub OnStart_DateChanged()
End Sub

Partial Private Sub OnStart_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnStop_DateChanged()
End Sub

Partial Private Sub OnStop_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnStatus_IdChanged()
End Sub

Partial Private Sub OnStatus_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnStatusChanged()
End Sub

Partial Private Sub OnStatusChanging(ByVal value As string)
End Sub

Partial Private Sub OnLast_ResultChanged()
End Sub

Partial Private Sub OnLast_ResultChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Name() As string
Get
Return Me._Name
End Get
Set(value As string)
If (_Name <> value  Or _Name Is Nothing  ) Then
Me.OnNameChanging(value)
Me.SendPropertyChanging()
Me._Name = value
Me.SendPropertyChanged("Name")
Me.OnNameChanged()
End If
End Set
End Property

Public Property Start_Date() As Date
Get
Return Me._Start_Date
End Get
Set(value As Date)
If (_Start_Date <> value  ) Then
Me.OnStart_DateChanging(value)
Me.SendPropertyChanging()
Me._Start_Date = value
Me.SendPropertyChanged("Start_Date")
Me.OnStart_DateChanged()
End If
End Set
End Property

Public Property Stop_Date() As Date
Get
Return Me._Stop_Date
End Get
Set(value As Date)
If (_Stop_Date <> value  ) Then
Me.OnStop_DateChanging(value)
Me.SendPropertyChanging()
Me._Stop_Date = value
Me.SendPropertyChanged("Stop_Date")
Me.OnStop_DateChanged()
End If
End Set
End Property

Public Property Status_Id() As integer
Get
Return Me._Status_Id
End Get
Set(value As integer)
If (_Status_Id <> value  ) Then
Me.OnStatus_IdChanging(value)
Me.SendPropertyChanging()
Me._Status_Id = value
Me.SendPropertyChanged("Status_Id")
Me.OnStatus_IdChanged()
End If
End Set
End Property

Public Property Status() As string
Get
Return Me._Status
End Get
Set(value As string)
If (_Status <> value  Or _Status Is Nothing  ) Then
Me.OnStatusChanging(value)
Me.SendPropertyChanging()
Me._Status = value
Me.SendPropertyChanged("Status")
Me.OnStatusChanged()
End If
End Set
End Property

Public Property Last_Result() As string
Get
Return Me._Last_Result
End Get
Set(value As string)
If (_Last_Result <> value  Or _Last_Result Is Nothing  ) Then
Me.OnLast_ResultChanging(value)
Me.SendPropertyChanging()
Me._Last_Result = value
Me.SendPropertyChanged("Last_Result")
Me.OnLast_ResultChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Send_Mail
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Send_Mail
Dim entity As Send_Mail = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Mail_Type_Id As integer
Private _Mail_Send As Boolean
Private _Data_Json As string = ""
Private _Send_Data As Date

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnMail_Type_IdChanged()
End Sub

Partial Private Sub OnMail_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnMail_SendChanged()
End Sub

Partial Private Sub OnMail_SendChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnData_JsonChanged()
End Sub

Partial Private Sub OnData_JsonChanging(ByVal value As string)
End Sub

Partial Private Sub OnSend_DataChanged()
End Sub

Partial Private Sub OnSend_DataChanging(ByVal value As Date)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Mail_Type_Id() As integer
Get
Return Me._Mail_Type_Id
End Get
Set(value As integer)
If (_Mail_Type_Id <> value  ) Then
Me.OnMail_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Mail_Type_Id = value
Me.SendPropertyChanged("Mail_Type_Id")
Me.OnMail_Type_IdChanged()
End If
End Set
End Property

Public Property Mail_Send() As Boolean
Get
Return Me._Mail_Send
End Get
Set(value As Boolean)
If (_Mail_Send <> value  ) Then
Me.OnMail_SendChanging(value)
Me.SendPropertyChanging()
Me._Mail_Send = value
Me.SendPropertyChanged("Mail_Send")
Me.OnMail_SendChanged()
End If
End Set
End Property

Public Property Data_Json() As string
Get
Return Me._Data_Json
End Get
Set(value As string)
If (_Data_Json <> value  Or _Data_Json Is Nothing  ) Then
Me.OnData_JsonChanging(value)
Me.SendPropertyChanging()
Me._Data_Json = value
Me.SendPropertyChanged("Data_Json")
Me.OnData_JsonChanged()
End If
End Set
End Property

Public Property Send_Data() As Date
Get
Return Me._Send_Data
End Get
Set(value As Date)
If (_Send_Data <> value  ) Then
Me.OnSend_DataChanging(value)
Me.SendPropertyChanging()
Me._Send_Data = value
Me.SendPropertyChanged("Send_Data")
Me.OnSend_DataChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Share_Detail
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Share_Detail
Dim entity As Share_Detail = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Post_Code As string = ""
Private _To_Account_Id As integer
Private _Account_Id As integer
Private _Share_Post_Id As integer
Private _Pubb_Date As Date

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnPost_CodeChanged()
End Sub

Partial Private Sub OnPost_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnTo_Account_IdChanged()
End Sub

Partial Private Sub OnTo_Account_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnShare_Post_IdChanged()
End Sub

Partial Private Sub OnShare_Post_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPubb_DateChanged()
End Sub

Partial Private Sub OnPubb_DateChanging(ByVal value As Date)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Post_Code() As string
Get
Return Me._Post_Code
End Get
Set(value As string)
If (_Post_Code <> value  Or _Post_Code Is Nothing  ) Then
Me.OnPost_CodeChanging(value)
Me.SendPropertyChanging()
Me._Post_Code = value
Me.SendPropertyChanged("Post_Code")
Me.OnPost_CodeChanged()
End If
End Set
End Property

Public Property To_Account_Id() As integer
Get
Return Me._To_Account_Id
End Get
Set(value As integer)
If (_To_Account_Id <> value  ) Then
Me.OnTo_Account_IdChanging(value)
Me.SendPropertyChanging()
Me._To_Account_Id = value
Me.SendPropertyChanged("To_Account_Id")
Me.OnTo_Account_IdChanged()
End If
End Set
End Property

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Share_Post_Id() As integer
Get
Return Me._Share_Post_Id
End Get
Set(value As integer)
If (_Share_Post_Id <> value  ) Then
Me.OnShare_Post_IdChanging(value)
Me.SendPropertyChanging()
Me._Share_Post_Id = value
Me.SendPropertyChanged("Share_Post_Id")
Me.OnShare_Post_IdChanged()
End If
End Set
End Property

Public Property Pubb_Date() As Date
Get
Return Me._Pubb_Date
End Get
Set(value As Date)
If (_Pubb_Date <> value  ) Then
Me.OnPubb_DateChanging(value)
Me.SendPropertyChanging()
Me._Pubb_Date = value
Me.SendPropertyChanged("Pubb_Date")
Me.OnPubb_DateChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Share_Post
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Share_Post
Dim entity As Share_Post = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Post_Code As string = ""
Private _Account_Id As integer
Private _Post_Text As string = ""
Private _Pubb_Date As Date
Private _Share_Det_Count As integer
Private _Share_Det_Update As Boolean
Private _Hash_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_CodeChanged()
End Sub

Partial Private Sub OnPost_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_TextChanged()
End Sub

Partial Private Sub OnPost_TextChanging(ByVal value As string)
End Sub

Partial Private Sub OnPubb_DateChanged()
End Sub

Partial Private Sub OnPubb_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnShare_Det_CountChanged()
End Sub

Partial Private Sub OnShare_Det_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnShare_Det_UpdateChanged()
End Sub

Partial Private Sub OnShare_Det_UpdateChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnHash_IdChanged()
End Sub

Partial Private Sub OnHash_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Post_Code() As string
Get
Return Me._Post_Code
End Get
Set(value As string)
If (_Post_Code <> value  Or _Post_Code Is Nothing  ) Then
Me.OnPost_CodeChanging(value)
Me.SendPropertyChanging()
Me._Post_Code = value
Me.SendPropertyChanged("Post_Code")
Me.OnPost_CodeChanged()
End If
End Set
End Property

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Post_Text() As string
Get
Return Me._Post_Text
End Get
Set(value As string)
If (_Post_Text <> value  Or _Post_Text Is Nothing  ) Then
Me.OnPost_TextChanging(value)
Me.SendPropertyChanging()
Me._Post_Text = value
Me.SendPropertyChanged("Post_Text")
Me.OnPost_TextChanged()
End If
End Set
End Property

Public Property Pubb_Date() As Date
Get
Return Me._Pubb_Date
End Get
Set(value As Date)
If (_Pubb_Date <> value  ) Then
Me.OnPubb_DateChanging(value)
Me.SendPropertyChanging()
Me._Pubb_Date = value
Me.SendPropertyChanged("Pubb_Date")
Me.OnPubb_DateChanged()
End If
End Set
End Property

Public Property Share_Det_Count() As integer
Get
Return Me._Share_Det_Count
End Get
Set(value As integer)
If (_Share_Det_Count <> value  ) Then
Me.OnShare_Det_CountChanging(value)
Me.SendPropertyChanging()
Me._Share_Det_Count = value
Me.SendPropertyChanged("Share_Det_Count")
Me.OnShare_Det_CountChanged()
End If
End Set
End Property

Public Property Share_Det_Update() As Boolean
Get
Return Me._Share_Det_Update
End Get
Set(value As Boolean)
If (_Share_Det_Update <> value  ) Then
Me.OnShare_Det_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Share_Det_Update = value
Me.SendPropertyChanged("Share_Det_Update")
Me.OnShare_Det_UpdateChanged()
End If
End Set
End Property

Public Property Hash_Id() As integer
Get
Return Me._Hash_Id
End Get
Set(value As integer)
If (_Hash_Id <> value  ) Then
Me.OnHash_IdChanging(value)
Me.SendPropertyChanging()
Me._Hash_Id = value
Me.SendPropertyChanged("Hash_Id")
Me.OnHash_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Task_Post
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Task_Post
Dim entity As Task_Post = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Task_Send_Id As integer
Private _Post_Type_Id As integer
Private _Post_Text As string = ""
Private _Last_Send_Date As Date
Private _Last_Send_Result As string = ""
Private _To_Account_Username As string = ""
Private _Reply_Post_Code As string = ""
Private _Share_Post_Code As string = ""
Private _Send_Post As Boolean
Private _Media_Id As integer
Private _Order_By As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnTask_Send_IdChanged()
End Sub

Partial Private Sub OnTask_Send_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_Type_IdChanged()
End Sub

Partial Private Sub OnPost_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_TextChanged()
End Sub

Partial Private Sub OnPost_TextChanging(ByVal value As string)
End Sub

Partial Private Sub OnLast_Send_DateChanged()
End Sub

Partial Private Sub OnLast_Send_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnLast_Send_ResultChanged()
End Sub

Partial Private Sub OnLast_Send_ResultChanging(ByVal value As string)
End Sub

Partial Private Sub OnTo_Account_UsernameChanged()
End Sub

Partial Private Sub OnTo_Account_UsernameChanging(ByVal value As string)
End Sub

Partial Private Sub OnReply_Post_CodeChanged()
End Sub

Partial Private Sub OnReply_Post_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnShare_Post_CodeChanged()
End Sub

Partial Private Sub OnShare_Post_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnSend_PostChanged()
End Sub

Partial Private Sub OnSend_PostChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnMedia_IdChanged()
End Sub

Partial Private Sub OnMedia_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnOrder_ByChanged()
End Sub

Partial Private Sub OnOrder_ByChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Task_Send_Id() As integer
Get
Return Me._Task_Send_Id
End Get
Set(value As integer)
If (_Task_Send_Id <> value  ) Then
Me.OnTask_Send_IdChanging(value)
Me.SendPropertyChanging()
Me._Task_Send_Id = value
Me.SendPropertyChanged("Task_Send_Id")
Me.OnTask_Send_IdChanged()
End If
End Set
End Property

Public Property Post_Type_Id() As integer
Get
Return Me._Post_Type_Id
End Get
Set(value As integer)
If (_Post_Type_Id <> value  ) Then
Me.OnPost_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Post_Type_Id = value
Me.SendPropertyChanged("Post_Type_Id")
Me.OnPost_Type_IdChanged()
End If
End Set
End Property

Public Property Post_Text() As string
Get
Return Me._Post_Text
End Get
Set(value As string)
If (_Post_Text <> value  Or _Post_Text Is Nothing  ) Then
Me.OnPost_TextChanging(value)
Me.SendPropertyChanging()
Me._Post_Text = value
Me.SendPropertyChanged("Post_Text")
Me.OnPost_TextChanged()
End If
End Set
End Property

Public Property Last_Send_Date() As Date
Get
Return Me._Last_Send_Date
End Get
Set(value As Date)
If (_Last_Send_Date <> value  ) Then
Me.OnLast_Send_DateChanging(value)
Me.SendPropertyChanging()
Me._Last_Send_Date = value
Me.SendPropertyChanged("Last_Send_Date")
Me.OnLast_Send_DateChanged()
End If
End Set
End Property

Public Property Last_Send_Result() As string
Get
Return Me._Last_Send_Result
End Get
Set(value As string)
If (_Last_Send_Result <> value  Or _Last_Send_Result Is Nothing  ) Then
Me.OnLast_Send_ResultChanging(value)
Me.SendPropertyChanging()
Me._Last_Send_Result = value
Me.SendPropertyChanged("Last_Send_Result")
Me.OnLast_Send_ResultChanged()
End If
End Set
End Property

Public Property To_Account_Username() As string
Get
Return Me._To_Account_Username
End Get
Set(value As string)
If (_To_Account_Username <> value  Or _To_Account_Username Is Nothing  ) Then
Me.OnTo_Account_UsernameChanging(value)
Me.SendPropertyChanging()
Me._To_Account_Username = value
Me.SendPropertyChanged("To_Account_Username")
Me.OnTo_Account_UsernameChanged()
End If
End Set
End Property

Public Property Reply_Post_Code() As string
Get
Return Me._Reply_Post_Code
End Get
Set(value As string)
If (_Reply_Post_Code <> value  Or _Reply_Post_Code Is Nothing  ) Then
Me.OnReply_Post_CodeChanging(value)
Me.SendPropertyChanging()
Me._Reply_Post_Code = value
Me.SendPropertyChanged("Reply_Post_Code")
Me.OnReply_Post_CodeChanged()
End If
End Set
End Property

Public Property Share_Post_Code() As string
Get
Return Me._Share_Post_Code
End Get
Set(value As string)
If (_Share_Post_Code <> value  Or _Share_Post_Code Is Nothing  ) Then
Me.OnShare_Post_CodeChanging(value)
Me.SendPropertyChanging()
Me._Share_Post_Code = value
Me.SendPropertyChanged("Share_Post_Code")
Me.OnShare_Post_CodeChanged()
End If
End Set
End Property

Public Property Send_Post() As Boolean
Get
Return Me._Send_Post
End Get
Set(value As Boolean)
If (_Send_Post <> value  ) Then
Me.OnSend_PostChanging(value)
Me.SendPropertyChanging()
Me._Send_Post = value
Me.SendPropertyChanged("Send_Post")
Me.OnSend_PostChanged()
End If
End Set
End Property

Public Property Media_Id() As integer
Get
Return Me._Media_Id
End Get
Set(value As integer)
If (_Media_Id <> value  ) Then
Me.OnMedia_IdChanging(value)
Me.SendPropertyChanging()
Me._Media_Id = value
Me.SendPropertyChanged("Media_Id")
Me.OnMedia_IdChanged()
End If
End Set
End Property

Public Property Order_By() As integer
Get
Return Me._Order_By
End Get
Set(value As integer)
If (_Order_By <> value  ) Then
Me.OnOrder_ByChanging(value)
Me.SendPropertyChanging()
Me._Order_By = value
Me.SendPropertyChanged("Order_By")
Me.OnOrder_ByChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Task_Scheduler
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Task_Scheduler
Dim entity As Task_Scheduler = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Task_Send_Id As integer
Private _Begin_Date As Date
Private _End_Date As Date
Private _Repeat_Day As Boolean
Private _Repeat_Day_Week_Json As string = ""
Private _Range_Time As Boolean
Private _Repeat_To_Time As string = ""
Private _Repeat_Every_Time As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnTask_Send_IdChanged()
End Sub

Partial Private Sub OnTask_Send_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnBegin_DateChanged()
End Sub

Partial Private Sub OnBegin_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnEnd_DateChanged()
End Sub

Partial Private Sub OnEnd_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnRepeat_DayChanged()
End Sub

Partial Private Sub OnRepeat_DayChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnRepeat_Day_Week_JsonChanged()
End Sub

Partial Private Sub OnRepeat_Day_Week_JsonChanging(ByVal value As string)
End Sub

Partial Private Sub OnRange_TimeChanged()
End Sub

Partial Private Sub OnRange_TimeChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnRepeat_To_TimeChanged()
End Sub

Partial Private Sub OnRepeat_To_TimeChanging(ByVal value As string)
End Sub

Partial Private Sub OnRepeat_Every_TimeChanged()
End Sub

Partial Private Sub OnRepeat_Every_TimeChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Task_Send_Id() As integer
Get
Return Me._Task_Send_Id
End Get
Set(value As integer)
If (_Task_Send_Id <> value  ) Then
Me.OnTask_Send_IdChanging(value)
Me.SendPropertyChanging()
Me._Task_Send_Id = value
Me.SendPropertyChanged("Task_Send_Id")
Me.OnTask_Send_IdChanged()
End If
End Set
End Property

Public Property Begin_Date() As Date
Get
Return Me._Begin_Date
End Get
Set(value As Date)
If (_Begin_Date <> value  ) Then
Me.OnBegin_DateChanging(value)
Me.SendPropertyChanging()
Me._Begin_Date = value
Me.SendPropertyChanged("Begin_Date")
Me.OnBegin_DateChanged()
End If
End Set
End Property

Public Property End_Date() As Date
Get
Return Me._End_Date
End Get
Set(value As Date)
If (_End_Date <> value  ) Then
Me.OnEnd_DateChanging(value)
Me.SendPropertyChanging()
Me._End_Date = value
Me.SendPropertyChanged("End_Date")
Me.OnEnd_DateChanged()
End If
End Set
End Property

Public Property Repeat_Day() As Boolean
Get
Return Me._Repeat_Day
End Get
Set(value As Boolean)
If (_Repeat_Day <> value  ) Then
Me.OnRepeat_DayChanging(value)
Me.SendPropertyChanging()
Me._Repeat_Day = value
Me.SendPropertyChanged("Repeat_Day")
Me.OnRepeat_DayChanged()
End If
End Set
End Property

Public Property Repeat_Day_Week_Json() As string
Get
Return Me._Repeat_Day_Week_Json
End Get
Set(value As string)
If (_Repeat_Day_Week_Json <> value  Or _Repeat_Day_Week_Json Is Nothing  ) Then
Me.OnRepeat_Day_Week_JsonChanging(value)
Me.SendPropertyChanging()
Me._Repeat_Day_Week_Json = value
Me.SendPropertyChanged("Repeat_Day_Week_Json")
Me.OnRepeat_Day_Week_JsonChanged()
End If
End Set
End Property

Public Property Range_Time() As Boolean
Get
Return Me._Range_Time
End Get
Set(value As Boolean)
If (_Range_Time <> value  ) Then
Me.OnRange_TimeChanging(value)
Me.SendPropertyChanging()
Me._Range_Time = value
Me.SendPropertyChanged("Range_Time")
Me.OnRange_TimeChanged()
End If
End Set
End Property

Public Property Repeat_To_Time() As string
Get
Return Me._Repeat_To_Time
End Get
Set(value As string)
If (_Repeat_To_Time <> value  Or _Repeat_To_Time Is Nothing  ) Then
Me.OnRepeat_To_TimeChanging(value)
Me.SendPropertyChanging()
Me._Repeat_To_Time = value
Me.SendPropertyChanged("Repeat_To_Time")
Me.OnRepeat_To_TimeChanged()
End If
End Set
End Property

Public Property Repeat_Every_Time() As string
Get
Return Me._Repeat_Every_Time
End Get
Set(value As string)
If (_Repeat_Every_Time <> value  Or _Repeat_Every_Time Is Nothing  ) Then
Me.OnRepeat_Every_TimeChanging(value)
Me.SendPropertyChanging()
Me._Repeat_Every_Time = value
Me.SendPropertyChanged("Repeat_Every_Time")
Me.OnRepeat_Every_TimeChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Task_Send
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Task_Send
Dim entity As Task_Send = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Enabled_Task As Boolean
Private _Expired_Task As Boolean
Private _Debug_Task As Boolean
Private _Account_Id As integer
Private _Description As string = ""
Private _Repeat_Send_Post As Boolean
Private _Send_Max_Day As integer
Private _Send_All_Post As Boolean
Private _Next_Send_Date As Date
Private _Next_Send_Task_Scheduler_Id As integer
Private _Next_Send_Post As string = ""
Private _Last_Send_Date As Date
Private _Last_Send_Post As string = ""
Private _Last_Send_Result As string = ""
Private _Post_Send_Count As integer
Private _Share_Account_Id As integer
Private _Share_Update As Date
Private _Share_Update_Post_Count As integer
Private _Share_Update_Post_Code As string = ""
Private _Share_All_Post As Boolean
Private _Feedrss_Id As integer
Private _Feedrss_Update As Date
Private _Feedrss_Item_Id As integer
Private _Auto_Post_Active As Boolean
Private _Auto_Post_Text As string = ""
Private _Auto_Post_Private As Boolean
Private _Auto_Post_Filter_Json As string = ""
Private _Auto_Post_Last_Update As Date
Private _Auto_Post_Schedule_Type_Id As sbyte
Private _Auto_Post_Schedule_Detail As sbyte

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnEnabled_TaskChanged()
End Sub

Partial Private Sub OnEnabled_TaskChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnExpired_TaskChanged()
End Sub

Partial Private Sub OnExpired_TaskChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnDebug_TaskChanged()
End Sub

Partial Private Sub OnDebug_TaskChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnDescriptionChanged()
End Sub

Partial Private Sub OnDescriptionChanging(ByVal value As string)
End Sub

Partial Private Sub OnRepeat_Send_PostChanged()
End Sub

Partial Private Sub OnRepeat_Send_PostChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnSend_Max_DayChanged()
End Sub

Partial Private Sub OnSend_Max_DayChanging(ByVal value As integer)
End Sub

Partial Private Sub OnSend_All_PostChanged()
End Sub

Partial Private Sub OnSend_All_PostChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnNext_Send_DateChanged()
End Sub

Partial Private Sub OnNext_Send_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnNext_Send_Task_Scheduler_IdChanged()
End Sub

Partial Private Sub OnNext_Send_Task_Scheduler_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnNext_Send_PostChanged()
End Sub

Partial Private Sub OnNext_Send_PostChanging(ByVal value As string)
End Sub

Partial Private Sub OnLast_Send_DateChanged()
End Sub

Partial Private Sub OnLast_Send_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnLast_Send_PostChanged()
End Sub

Partial Private Sub OnLast_Send_PostChanging(ByVal value As string)
End Sub

Partial Private Sub OnLast_Send_ResultChanged()
End Sub

Partial Private Sub OnLast_Send_ResultChanging(ByVal value As string)
End Sub

Partial Private Sub OnPost_Send_CountChanged()
End Sub

Partial Private Sub OnPost_Send_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnShare_Account_IdChanged()
End Sub

Partial Private Sub OnShare_Account_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnShare_UpdateChanged()
End Sub

Partial Private Sub OnShare_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnShare_Update_Post_CountChanged()
End Sub

Partial Private Sub OnShare_Update_Post_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnShare_Update_Post_CodeChanged()
End Sub

Partial Private Sub OnShare_Update_Post_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnShare_All_PostChanged()
End Sub

Partial Private Sub OnShare_All_PostChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnFeedrss_IdChanged()
End Sub

Partial Private Sub OnFeedrss_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFeedrss_UpdateChanged()
End Sub

Partial Private Sub OnFeedrss_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnFeedrss_Item_IdChanged()
End Sub

Partial Private Sub OnFeedrss_Item_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAuto_Post_ActiveChanged()
End Sub

Partial Private Sub OnAuto_Post_ActiveChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnAuto_Post_TextChanged()
End Sub

Partial Private Sub OnAuto_Post_TextChanging(ByVal value As string)
End Sub

Partial Private Sub OnAuto_Post_PrivateChanged()
End Sub

Partial Private Sub OnAuto_Post_PrivateChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnAuto_Post_Filter_JsonChanged()
End Sub

Partial Private Sub OnAuto_Post_Filter_JsonChanging(ByVal value As string)
End Sub

Partial Private Sub OnAuto_Post_Last_UpdateChanged()
End Sub

Partial Private Sub OnAuto_Post_Last_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnAuto_Post_Schedule_Type_IdChanged()
End Sub

Partial Private Sub OnAuto_Post_Schedule_Type_IdChanging(ByVal value As sbyte)
End Sub

Partial Private Sub OnAuto_Post_Schedule_DetailChanged()
End Sub

Partial Private Sub OnAuto_Post_Schedule_DetailChanging(ByVal value As sbyte)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Enabled_Task() As Boolean
Get
Return Me._Enabled_Task
End Get
Set(value As Boolean)
If (_Enabled_Task <> value  ) Then
Me.OnEnabled_TaskChanging(value)
Me.SendPropertyChanging()
Me._Enabled_Task = value
Me.SendPropertyChanged("Enabled_Task")
Me.OnEnabled_TaskChanged()
End If
End Set
End Property

Public Property Expired_Task() As Boolean
Get
Return Me._Expired_Task
End Get
Set(value As Boolean)
If (_Expired_Task <> value  ) Then
Me.OnExpired_TaskChanging(value)
Me.SendPropertyChanging()
Me._Expired_Task = value
Me.SendPropertyChanged("Expired_Task")
Me.OnExpired_TaskChanged()
End If
End Set
End Property

Public Property Debug_Task() As Boolean
Get
Return Me._Debug_Task
End Get
Set(value As Boolean)
If (_Debug_Task <> value  ) Then
Me.OnDebug_TaskChanging(value)
Me.SendPropertyChanging()
Me._Debug_Task = value
Me.SendPropertyChanged("Debug_Task")
Me.OnDebug_TaskChanged()
End If
End Set
End Property

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Description() As string
Get
Return Me._Description
End Get
Set(value As string)
If (_Description <> value  Or _Description Is Nothing  ) Then
Me.OnDescriptionChanging(value)
Me.SendPropertyChanging()
Me._Description = value
Me.SendPropertyChanged("Description")
Me.OnDescriptionChanged()
End If
End Set
End Property

Public Property Repeat_Send_Post() As Boolean
Get
Return Me._Repeat_Send_Post
End Get
Set(value As Boolean)
If (_Repeat_Send_Post <> value  ) Then
Me.OnRepeat_Send_PostChanging(value)
Me.SendPropertyChanging()
Me._Repeat_Send_Post = value
Me.SendPropertyChanged("Repeat_Send_Post")
Me.OnRepeat_Send_PostChanged()
End If
End Set
End Property

Public Property Send_Max_Day() As integer
Get
Return Me._Send_Max_Day
End Get
Set(value As integer)
If (_Send_Max_Day <> value  ) Then
Me.OnSend_Max_DayChanging(value)
Me.SendPropertyChanging()
Me._Send_Max_Day = value
Me.SendPropertyChanged("Send_Max_Day")
Me.OnSend_Max_DayChanged()
End If
End Set
End Property

Public Property Send_All_Post() As Boolean
Get
Return Me._Send_All_Post
End Get
Set(value As Boolean)
If (_Send_All_Post <> value  ) Then
Me.OnSend_All_PostChanging(value)
Me.SendPropertyChanging()
Me._Send_All_Post = value
Me.SendPropertyChanged("Send_All_Post")
Me.OnSend_All_PostChanged()
End If
End Set
End Property

Public Property Next_Send_Date() As Date
Get
Return Me._Next_Send_Date
End Get
Set(value As Date)
If (_Next_Send_Date <> value  ) Then
Me.OnNext_Send_DateChanging(value)
Me.SendPropertyChanging()
Me._Next_Send_Date = value
Me.SendPropertyChanged("Next_Send_Date")
Me.OnNext_Send_DateChanged()
End If
End Set
End Property

Public Property Next_Send_Task_Scheduler_Id() As integer
Get
Return Me._Next_Send_Task_Scheduler_Id
End Get
Set(value As integer)
If (_Next_Send_Task_Scheduler_Id <> value  ) Then
Me.OnNext_Send_Task_Scheduler_IdChanging(value)
Me.SendPropertyChanging()
Me._Next_Send_Task_Scheduler_Id = value
Me.SendPropertyChanged("Next_Send_Task_Scheduler_Id")
Me.OnNext_Send_Task_Scheduler_IdChanged()
End If
End Set
End Property

Public Property Next_Send_Post() As string
Get
Return Me._Next_Send_Post
End Get
Set(value As string)
If (_Next_Send_Post <> value  Or _Next_Send_Post Is Nothing  ) Then
Me.OnNext_Send_PostChanging(value)
Me.SendPropertyChanging()
Me._Next_Send_Post = value
Me.SendPropertyChanged("Next_Send_Post")
Me.OnNext_Send_PostChanged()
End If
End Set
End Property

Public Property Last_Send_Date() As Date
Get
Return Me._Last_Send_Date
End Get
Set(value As Date)
If (_Last_Send_Date <> value  ) Then
Me.OnLast_Send_DateChanging(value)
Me.SendPropertyChanging()
Me._Last_Send_Date = value
Me.SendPropertyChanged("Last_Send_Date")
Me.OnLast_Send_DateChanged()
End If
End Set
End Property

Public Property Last_Send_Post() As string
Get
Return Me._Last_Send_Post
End Get
Set(value As string)
If (_Last_Send_Post <> value  Or _Last_Send_Post Is Nothing  ) Then
Me.OnLast_Send_PostChanging(value)
Me.SendPropertyChanging()
Me._Last_Send_Post = value
Me.SendPropertyChanged("Last_Send_Post")
Me.OnLast_Send_PostChanged()
End If
End Set
End Property

Public Property Last_Send_Result() As string
Get
Return Me._Last_Send_Result
End Get
Set(value As string)
If (_Last_Send_Result <> value  Or _Last_Send_Result Is Nothing  ) Then
Me.OnLast_Send_ResultChanging(value)
Me.SendPropertyChanging()
Me._Last_Send_Result = value
Me.SendPropertyChanged("Last_Send_Result")
Me.OnLast_Send_ResultChanged()
End If
End Set
End Property

Public Property Post_Send_Count() As integer
Get
Return Me._Post_Send_Count
End Get
Set(value As integer)
If (_Post_Send_Count <> value  ) Then
Me.OnPost_Send_CountChanging(value)
Me.SendPropertyChanging()
Me._Post_Send_Count = value
Me.SendPropertyChanged("Post_Send_Count")
Me.OnPost_Send_CountChanged()
End If
End Set
End Property

Public Property Share_Account_Id() As integer
Get
Return Me._Share_Account_Id
End Get
Set(value As integer)
If (_Share_Account_Id <> value  ) Then
Me.OnShare_Account_IdChanging(value)
Me.SendPropertyChanging()
Me._Share_Account_Id = value
Me.SendPropertyChanged("Share_Account_Id")
Me.OnShare_Account_IdChanged()
End If
End Set
End Property

Public Property Share_Update() As Date
Get
Return Me._Share_Update
End Get
Set(value As Date)
If (_Share_Update <> value  ) Then
Me.OnShare_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Share_Update = value
Me.SendPropertyChanged("Share_Update")
Me.OnShare_UpdateChanged()
End If
End Set
End Property

Public Property Share_Update_Post_Count() As integer
Get
Return Me._Share_Update_Post_Count
End Get
Set(value As integer)
If (_Share_Update_Post_Count <> value  ) Then
Me.OnShare_Update_Post_CountChanging(value)
Me.SendPropertyChanging()
Me._Share_Update_Post_Count = value
Me.SendPropertyChanged("Share_Update_Post_Count")
Me.OnShare_Update_Post_CountChanged()
End If
End Set
End Property

Public Property Share_Update_Post_Code() As string
Get
Return Me._Share_Update_Post_Code
End Get
Set(value As string)
If (_Share_Update_Post_Code <> value  Or _Share_Update_Post_Code Is Nothing  ) Then
Me.OnShare_Update_Post_CodeChanging(value)
Me.SendPropertyChanging()
Me._Share_Update_Post_Code = value
Me.SendPropertyChanged("Share_Update_Post_Code")
Me.OnShare_Update_Post_CodeChanged()
End If
End Set
End Property

Public Property Share_All_Post() As Boolean
Get
Return Me._Share_All_Post
End Get
Set(value As Boolean)
If (_Share_All_Post <> value  ) Then
Me.OnShare_All_PostChanging(value)
Me.SendPropertyChanging()
Me._Share_All_Post = value
Me.SendPropertyChanged("Share_All_Post")
Me.OnShare_All_PostChanged()
End If
End Set
End Property

Public Property Feedrss_Id() As integer
Get
Return Me._Feedrss_Id
End Get
Set(value As integer)
If (_Feedrss_Id <> value  ) Then
Me.OnFeedrss_IdChanging(value)
Me.SendPropertyChanging()
Me._Feedrss_Id = value
Me.SendPropertyChanged("Feedrss_Id")
Me.OnFeedrss_IdChanged()
End If
End Set
End Property

Public Property Feedrss_Update() As Date
Get
Return Me._Feedrss_Update
End Get
Set(value As Date)
If (_Feedrss_Update <> value  ) Then
Me.OnFeedrss_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Feedrss_Update = value
Me.SendPropertyChanged("Feedrss_Update")
Me.OnFeedrss_UpdateChanged()
End If
End Set
End Property

Public Property Feedrss_Item_Id() As integer
Get
Return Me._Feedrss_Item_Id
End Get
Set(value As integer)
If (_Feedrss_Item_Id <> value  ) Then
Me.OnFeedrss_Item_IdChanging(value)
Me.SendPropertyChanging()
Me._Feedrss_Item_Id = value
Me.SendPropertyChanged("Feedrss_Item_Id")
Me.OnFeedrss_Item_IdChanged()
End If
End Set
End Property

Public Property Auto_Post_Active() As Boolean
Get
Return Me._Auto_Post_Active
End Get
Set(value As Boolean)
If (_Auto_Post_Active <> value  ) Then
Me.OnAuto_Post_ActiveChanging(value)
Me.SendPropertyChanging()
Me._Auto_Post_Active = value
Me.SendPropertyChanged("Auto_Post_Active")
Me.OnAuto_Post_ActiveChanged()
End If
End Set
End Property

Public Property Auto_Post_Text() As string
Get
Return Me._Auto_Post_Text
End Get
Set(value As string)
If (_Auto_Post_Text <> value  Or _Auto_Post_Text Is Nothing  ) Then
Me.OnAuto_Post_TextChanging(value)
Me.SendPropertyChanging()
Me._Auto_Post_Text = value
Me.SendPropertyChanged("Auto_Post_Text")
Me.OnAuto_Post_TextChanged()
End If
End Set
End Property

Public Property Auto_Post_Private() As Boolean
Get
Return Me._Auto_Post_Private
End Get
Set(value As Boolean)
If (_Auto_Post_Private <> value  ) Then
Me.OnAuto_Post_PrivateChanging(value)
Me.SendPropertyChanging()
Me._Auto_Post_Private = value
Me.SendPropertyChanged("Auto_Post_Private")
Me.OnAuto_Post_PrivateChanged()
End If
End Set
End Property

Public Property Auto_Post_Filter_Json() As string
Get
Return Me._Auto_Post_Filter_Json
End Get
Set(value As string)
If (_Auto_Post_Filter_Json <> value  Or _Auto_Post_Filter_Json Is Nothing  ) Then
Me.OnAuto_Post_Filter_JsonChanging(value)
Me.SendPropertyChanging()
Me._Auto_Post_Filter_Json = value
Me.SendPropertyChanged("Auto_Post_Filter_Json")
Me.OnAuto_Post_Filter_JsonChanged()
End If
End Set
End Property

Public Property Auto_Post_Last_Update() As Date
Get
Return Me._Auto_Post_Last_Update
End Get
Set(value As Date)
If (_Auto_Post_Last_Update <> value  ) Then
Me.OnAuto_Post_Last_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Auto_Post_Last_Update = value
Me.SendPropertyChanged("Auto_Post_Last_Update")
Me.OnAuto_Post_Last_UpdateChanged()
End If
End Set
End Property

Public Property Auto_Post_Schedule_Type_Id() As sbyte
Get
Return Me._Auto_Post_Schedule_Type_Id
End Get
Set(value As sbyte)
If (_Auto_Post_Schedule_Type_Id <> value  ) Then
Me.OnAuto_Post_Schedule_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Auto_Post_Schedule_Type_Id = value
Me.SendPropertyChanged("Auto_Post_Schedule_Type_Id")
Me.OnAuto_Post_Schedule_Type_IdChanged()
End If
End Set
End Property

Public Property Auto_Post_Schedule_Detail() As sbyte
Get
Return Me._Auto_Post_Schedule_Detail
End Get
Set(value As sbyte)
If (_Auto_Post_Schedule_Detail <> value  ) Then
Me.OnAuto_Post_Schedule_DetailChanging(value)
Me.SendPropertyChanging()
Me._Auto_Post_Schedule_Detail = value
Me.SendPropertyChanged("Auto_Post_Schedule_Detail")
Me.OnAuto_Post_Schedule_DetailChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Time_Zone
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Time_Zone
Dim entity As Time_Zone = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Time_Zone_Code As string = ""
Private _Display_Name As string = ""
Private _Utc_Offset As integer
Private _Daylight_Saving As Boolean

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnTime_Zone_CodeChanged()
End Sub

Partial Private Sub OnTime_Zone_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnDisplay_NameChanged()
End Sub

Partial Private Sub OnDisplay_NameChanging(ByVal value As string)
End Sub

Partial Private Sub OnUtc_OffsetChanged()
End Sub

Partial Private Sub OnUtc_OffsetChanging(ByVal value As integer)
End Sub

Partial Private Sub OnDaylight_SavingChanged()
End Sub

Partial Private Sub OnDaylight_SavingChanging(ByVal value As Boolean)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Time_Zone_Code() As string
Get
Return Me._Time_Zone_Code
End Get
Set(value As string)
If (_Time_Zone_Code <> value  Or _Time_Zone_Code Is Nothing  ) Then
Me.OnTime_Zone_CodeChanging(value)
Me.SendPropertyChanging()
Me._Time_Zone_Code = value
Me.SendPropertyChanged("Time_Zone_Code")
Me.OnTime_Zone_CodeChanged()
End If
End Set
End Property

Public Property Display_Name() As string
Get
Return Me._Display_Name
End Get
Set(value As string)
If (_Display_Name <> value  Or _Display_Name Is Nothing  ) Then
Me.OnDisplay_NameChanging(value)
Me.SendPropertyChanging()
Me._Display_Name = value
Me.SendPropertyChanged("Display_Name")
Me.OnDisplay_NameChanged()
End If
End Set
End Property

Public Property Utc_Offset() As integer
Get
Return Me._Utc_Offset
End Get
Set(value As integer)
If (_Utc_Offset <> value  ) Then
Me.OnUtc_OffsetChanging(value)
Me.SendPropertyChanging()
Me._Utc_Offset = value
Me.SendPropertyChanged("Utc_Offset")
Me.OnUtc_OffsetChanged()
End If
End Set
End Property

Public Property Daylight_Saving() As Boolean
Get
Return Me._Daylight_Saving
End Get
Set(value As Boolean)
If (_Daylight_Saving <> value  ) Then
Me.OnDaylight_SavingChanging(value)
Me.SendPropertyChanging()
Me._Daylight_Saving = value
Me.SendPropertyChanged("Daylight_Saving")
Me.OnDaylight_SavingChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class User
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As User
Dim entity As User = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Email As string = ""
Private _Password As string = ""
Private _Name As string = ""
Private _Surname As string = ""
Private _Email_Confirm As Boolean
Private _Time_Zone_Id As integer
Private _Session_Json As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnEmailChanged()
End Sub

Partial Private Sub OnEmailChanging(ByVal value As string)
End Sub

Partial Private Sub OnPasswordChanged()
End Sub

Partial Private Sub OnPasswordChanging(ByVal value As string)
End Sub

Partial Private Sub OnNameChanged()
End Sub

Partial Private Sub OnNameChanging(ByVal value As string)
End Sub

Partial Private Sub OnSurnameChanged()
End Sub

Partial Private Sub OnSurnameChanging(ByVal value As string)
End Sub

Partial Private Sub OnEmail_ConfirmChanged()
End Sub

Partial Private Sub OnEmail_ConfirmChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnTime_Zone_IdChanged()
End Sub

Partial Private Sub OnTime_Zone_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnSession_JsonChanged()
End Sub

Partial Private Sub OnSession_JsonChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Email() As string
Get
Return Me._Email
End Get
Set(value As string)
If (_Email <> value  Or _Email Is Nothing  ) Then
Me.OnEmailChanging(value)
Me.SendPropertyChanging()
Me._Email = value
Me.SendPropertyChanged("Email")
Me.OnEmailChanged()
End If
End Set
End Property

Public Property Password() As string
Get
Return Me._Password
End Get
Set(value As string)
If (_Password <> value  Or _Password Is Nothing  ) Then
Me.OnPasswordChanging(value)
Me.SendPropertyChanging()
Me._Password = value
Me.SendPropertyChanged("Password")
Me.OnPasswordChanged()
End If
End Set
End Property

Public Property Name() As string
Get
Return Me._Name
End Get
Set(value As string)
If (_Name <> value  Or _Name Is Nothing  ) Then
Me.OnNameChanging(value)
Me.SendPropertyChanging()
Me._Name = value
Me.SendPropertyChanged("Name")
Me.OnNameChanged()
End If
End Set
End Property

Public Property Surname() As string
Get
Return Me._Surname
End Get
Set(value As string)
If (_Surname <> value  Or _Surname Is Nothing  ) Then
Me.OnSurnameChanging(value)
Me.SendPropertyChanging()
Me._Surname = value
Me.SendPropertyChanged("Surname")
Me.OnSurnameChanged()
End If
End Set
End Property

Public Property Email_Confirm() As Boolean
Get
Return Me._Email_Confirm
End Get
Set(value As Boolean)
If (_Email_Confirm <> value  ) Then
Me.OnEmail_ConfirmChanging(value)
Me.SendPropertyChanging()
Me._Email_Confirm = value
Me.SendPropertyChanged("Email_Confirm")
Me.OnEmail_ConfirmChanged()
End If
End Set
End Property

Public Property Time_Zone_Id() As integer
Get
Return Me._Time_Zone_Id
End Get
Set(value As integer)
If (_Time_Zone_Id <> value  ) Then
Me.OnTime_Zone_IdChanging(value)
Me.SendPropertyChanging()
Me._Time_Zone_Id = value
Me.SendPropertyChanged("Time_Zone_Id")
Me.OnTime_Zone_IdChanged()
End If
End Set
End Property

Public Property Session_Json() As string
Get
Return Me._Session_Json
End Get
Set(value As string)
If (_Session_Json <> value  Or _Session_Json Is Nothing  ) Then
Me.OnSession_JsonChanging(value)
Me.SendPropertyChanging()
Me._Session_Json = value
Me.SendPropertyChanged("Session_Json")
Me.OnSession_JsonChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class User_Account
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As User_Account
Dim entity As User_Account = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _User_Id As integer
Private _Account_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnUser_IdChanged()
End Sub

Partial Private Sub OnUser_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property User_Id() As integer
Get
Return Me._User_Id
End Get
Set(value As integer)
If (_User_Id <> value  ) Then
Me.OnUser_IdChanging(value)
Me.SendPropertyChanging()
Me._User_Id = value
Me.SendPropertyChanged("User_Id")
Me.OnUser_IdChanged()
End If
End Set
End Property

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class User_Alert
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As User_Alert
Dim entity As User_Alert = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _User_Id As integer
Private _Alert_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnUser_IdChanged()
End Sub

Partial Private Sub OnUser_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAlert_IdChanged()
End Sub

Partial Private Sub OnAlert_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property User_Id() As integer
Get
Return Me._User_Id
End Get
Set(value As integer)
If (_User_Id <> value  ) Then
Me.OnUser_IdChanging(value)
Me.SendPropertyChanging()
Me._User_Id = value
Me.SendPropertyChanged("User_Id")
Me.OnUser_IdChanged()
End If
End Set
End Property

Public Property Alert_Id() As integer
Get
Return Me._Alert_Id
End Get
Set(value As integer)
If (_Alert_Id <> value  ) Then
Me.OnAlert_IdChanging(value)
Me.SendPropertyChanging()
Me._Alert_Id = value
Me.SendPropertyChanged("Alert_Id")
Me.OnAlert_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class User_Option
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As User_Option
Dim entity As User_Option = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _User_Id As integer
Private _Options_Json As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnUser_IdChanged()
End Sub

Partial Private Sub OnUser_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnOptions_JsonChanged()
End Sub

Partial Private Sub OnOptions_JsonChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property User_Id() As integer
Get
Return Me._User_Id
End Get
Set(value As integer)
If (_User_Id <> value  ) Then
Me.OnUser_IdChanging(value)
Me.SendPropertyChanging()
Me._User_Id = value
Me.SendPropertyChanged("User_Id")
Me.OnUser_IdChanged()
End If
End Set
End Property

Public Property Options_Json() As string
Get
Return Me._Options_Json
End Get
Set(value As string)
If (_Options_Json <> value  Or _Options_Json Is Nothing  ) Then
Me.OnOptions_JsonChanging(value)
Me.SendPropertyChanging()
Me._Options_Json = value
Me.SendPropertyChanged("Options_Json")
Me.OnOptions_JsonChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class User_Order
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As User_Order
Dim entity As User_Order = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _User_Id As integer
Private _Create_Data As Date
Private _Amount As double
Private _Processed_Date As Date
Private _Processed As Boolean
Private _Plan_Id As integer
Private _Plan_Month As integer
Private _Plan_Create As Boolean
Private _Promo_Id As integer
Private _Promo_Month As integer
Private _Promo_Create As Boolean

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnUser_IdChanged()
End Sub

Partial Private Sub OnUser_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnCreate_DataChanged()
End Sub

Partial Private Sub OnCreate_DataChanging(ByVal value As Date)
End Sub

Partial Private Sub OnAmountChanged()
End Sub

Partial Private Sub OnAmountChanging(ByVal value As double)
End Sub

Partial Private Sub OnProcessed_DateChanged()
End Sub

Partial Private Sub OnProcessed_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnProcessedChanged()
End Sub

Partial Private Sub OnProcessedChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnPlan_IdChanged()
End Sub

Partial Private Sub OnPlan_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPlan_MonthChanged()
End Sub

Partial Private Sub OnPlan_MonthChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPlan_CreateChanged()
End Sub

Partial Private Sub OnPlan_CreateChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnPromo_IdChanged()
End Sub

Partial Private Sub OnPromo_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPromo_MonthChanged()
End Sub

Partial Private Sub OnPromo_MonthChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPromo_CreateChanged()
End Sub

Partial Private Sub OnPromo_CreateChanging(ByVal value As Boolean)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property User_Id() As integer
Get
Return Me._User_Id
End Get
Set(value As integer)
If (_User_Id <> value  ) Then
Me.OnUser_IdChanging(value)
Me.SendPropertyChanging()
Me._User_Id = value
Me.SendPropertyChanged("User_Id")
Me.OnUser_IdChanged()
End If
End Set
End Property

Public Property Create_Data() As Date
Get
Return Me._Create_Data
End Get
Set(value As Date)
If (_Create_Data <> value  ) Then
Me.OnCreate_DataChanging(value)
Me.SendPropertyChanging()
Me._Create_Data = value
Me.SendPropertyChanged("Create_Data")
Me.OnCreate_DataChanged()
End If
End Set
End Property

Public Property Amount() As double
Get
Return Me._Amount
End Get
Set(value As double)
If (_Amount <> value  ) Then
Me.OnAmountChanging(value)
Me.SendPropertyChanging()
Me._Amount = value
Me.SendPropertyChanged("Amount")
Me.OnAmountChanged()
End If
End Set
End Property

Public Property Processed_Date() As Date
Get
Return Me._Processed_Date
End Get
Set(value As Date)
If (_Processed_Date <> value  ) Then
Me.OnProcessed_DateChanging(value)
Me.SendPropertyChanging()
Me._Processed_Date = value
Me.SendPropertyChanged("Processed_Date")
Me.OnProcessed_DateChanged()
End If
End Set
End Property

Public Property Processed() As Boolean
Get
Return Me._Processed
End Get
Set(value As Boolean)
If (_Processed <> value  ) Then
Me.OnProcessedChanging(value)
Me.SendPropertyChanging()
Me._Processed = value
Me.SendPropertyChanged("Processed")
Me.OnProcessedChanged()
End If
End Set
End Property

Public Property Plan_Id() As integer
Get
Return Me._Plan_Id
End Get
Set(value As integer)
If (_Plan_Id <> value  ) Then
Me.OnPlan_IdChanging(value)
Me.SendPropertyChanging()
Me._Plan_Id = value
Me.SendPropertyChanged("Plan_Id")
Me.OnPlan_IdChanged()
End If
End Set
End Property

Public Property Plan_Month() As integer
Get
Return Me._Plan_Month
End Get
Set(value As integer)
If (_Plan_Month <> value  ) Then
Me.OnPlan_MonthChanging(value)
Me.SendPropertyChanging()
Me._Plan_Month = value
Me.SendPropertyChanged("Plan_Month")
Me.OnPlan_MonthChanged()
End If
End Set
End Property

Public Property Plan_Create() As Boolean
Get
Return Me._Plan_Create
End Get
Set(value As Boolean)
If (_Plan_Create <> value  ) Then
Me.OnPlan_CreateChanging(value)
Me.SendPropertyChanging()
Me._Plan_Create = value
Me.SendPropertyChanged("Plan_Create")
Me.OnPlan_CreateChanged()
End If
End Set
End Property

Public Property Promo_Id() As integer
Get
Return Me._Promo_Id
End Get
Set(value As integer)
If (_Promo_Id <> value  ) Then
Me.OnPromo_IdChanging(value)
Me.SendPropertyChanging()
Me._Promo_Id = value
Me.SendPropertyChanged("Promo_Id")
Me.OnPromo_IdChanged()
End If
End Set
End Property

Public Property Promo_Month() As integer
Get
Return Me._Promo_Month
End Get
Set(value As integer)
If (_Promo_Month <> value  ) Then
Me.OnPromo_MonthChanging(value)
Me.SendPropertyChanging()
Me._Promo_Month = value
Me.SendPropertyChanged("Promo_Month")
Me.OnPromo_MonthChanged()
End If
End Set
End Property

Public Property Promo_Create() As Boolean
Get
Return Me._Promo_Create
End Get
Set(value As Boolean)
If (_Promo_Create <> value  ) Then
Me.OnPromo_CreateChanging(value)
Me.SendPropertyChanging()
Me._Promo_Create = value
Me.SendPropertyChanged("Promo_Create")
Me.OnPromo_CreateChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class User_Plan
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As User_Plan
Dim entity As User_Plan = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _User_Id As integer
Private _Plan_Id As integer
Private _Plan_Month As integer
Private _Plan_Begin_Date As Date
Private _Plan_Expire_Date As Date

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnUser_IdChanged()
End Sub

Partial Private Sub OnUser_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPlan_IdChanged()
End Sub

Partial Private Sub OnPlan_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPlan_MonthChanged()
End Sub

Partial Private Sub OnPlan_MonthChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPlan_Begin_DateChanged()
End Sub

Partial Private Sub OnPlan_Begin_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnPlan_Expire_DateChanged()
End Sub

Partial Private Sub OnPlan_Expire_DateChanging(ByVal value As Date)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property User_Id() As integer
Get
Return Me._User_Id
End Get
Set(value As integer)
If (_User_Id <> value  ) Then
Me.OnUser_IdChanging(value)
Me.SendPropertyChanging()
Me._User_Id = value
Me.SendPropertyChanged("User_Id")
Me.OnUser_IdChanged()
End If
End Set
End Property

Public Property Plan_Id() As integer
Get
Return Me._Plan_Id
End Get
Set(value As integer)
If (_Plan_Id <> value  ) Then
Me.OnPlan_IdChanging(value)
Me.SendPropertyChanging()
Me._Plan_Id = value
Me.SendPropertyChanged("Plan_Id")
Me.OnPlan_IdChanged()
End If
End Set
End Property

Public Property Plan_Month() As integer
Get
Return Me._Plan_Month
End Get
Set(value As integer)
If (_Plan_Month <> value  ) Then
Me.OnPlan_MonthChanging(value)
Me.SendPropertyChanging()
Me._Plan_Month = value
Me.SendPropertyChanged("Plan_Month")
Me.OnPlan_MonthChanged()
End If
End Set
End Property

Public Property Plan_Begin_Date() As Date
Get
Return Me._Plan_Begin_Date
End Get
Set(value As Date)
If (_Plan_Begin_Date <> value  ) Then
Me.OnPlan_Begin_DateChanging(value)
Me.SendPropertyChanging()
Me._Plan_Begin_Date = value
Me.SendPropertyChanged("Plan_Begin_Date")
Me.OnPlan_Begin_DateChanged()
End If
End Set
End Property

Public Property Plan_Expire_Date() As Date
Get
Return Me._Plan_Expire_Date
End Get
Set(value As Date)
If (_Plan_Expire_Date <> value  ) Then
Me.OnPlan_Expire_DateChanging(value)
Me.SendPropertyChanging()
Me._Plan_Expire_Date = value
Me.SendPropertyChanged("Plan_Expire_Date")
Me.OnPlan_Expire_DateChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class User_Promo
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As User_Promo
Dim entity As User_Promo = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _User_Id As integer
Private _Plan_Id As integer
Private _Promo_Id As integer
Private _Promo_Begin_Date As Date
Private _Promo_Expire_Date As Date

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnUser_IdChanged()
End Sub

Partial Private Sub OnUser_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPlan_IdChanged()
End Sub

Partial Private Sub OnPlan_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPromo_IdChanged()
End Sub

Partial Private Sub OnPromo_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPromo_Begin_DateChanged()
End Sub

Partial Private Sub OnPromo_Begin_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnPromo_Expire_DateChanged()
End Sub

Partial Private Sub OnPromo_Expire_DateChanging(ByVal value As Date)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property User_Id() As integer
Get
Return Me._User_Id
End Get
Set(value As integer)
If (_User_Id <> value  ) Then
Me.OnUser_IdChanging(value)
Me.SendPropertyChanging()
Me._User_Id = value
Me.SendPropertyChanged("User_Id")
Me.OnUser_IdChanged()
End If
End Set
End Property

Public Property Plan_Id() As integer
Get
Return Me._Plan_Id
End Get
Set(value As integer)
If (_Plan_Id <> value  ) Then
Me.OnPlan_IdChanging(value)
Me.SendPropertyChanging()
Me._Plan_Id = value
Me.SendPropertyChanged("Plan_Id")
Me.OnPlan_IdChanged()
End If
End Set
End Property

Public Property Promo_Id() As integer
Get
Return Me._Promo_Id
End Get
Set(value As integer)
If (_Promo_Id <> value  ) Then
Me.OnPromo_IdChanging(value)
Me.SendPropertyChanging()
Me._Promo_Id = value
Me.SendPropertyChanged("Promo_Id")
Me.OnPromo_IdChanged()
End If
End Set
End Property

Public Property Promo_Begin_Date() As Date
Get
Return Me._Promo_Begin_Date
End Get
Set(value As Date)
If (_Promo_Begin_Date <> value  ) Then
Me.OnPromo_Begin_DateChanging(value)
Me.SendPropertyChanging()
Me._Promo_Begin_Date = value
Me.SendPropertyChanged("Promo_Begin_Date")
Me.OnPromo_Begin_DateChanged()
End If
End Set
End Property

Public Property Promo_Expire_Date() As Date
Get
Return Me._Promo_Expire_Date
End Get
Set(value As Date)
If (_Promo_Expire_Date <> value  ) Then
Me.OnPromo_Expire_DateChanging(value)
Me.SendPropertyChanging()
Me._Promo_Expire_Date = value
Me.SendPropertyChanged("Promo_Expire_Date")
Me.OnPromo_Expire_DateChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Zzz__Query_Account
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Zzz__Query_Account
Dim entity As Zzz__Query_Account = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Query_Id As integer
Private _Account_Code As string = ""
Private _Post_Update As Date
Private _Account_Username As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnQuery_IdChanged()
End Sub

Partial Private Sub OnQuery_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_CodeChanged()
End Sub

Partial Private Sub OnAccount_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnPost_UpdateChanged()
End Sub

Partial Private Sub OnPost_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnAccount_UsernameChanged()
End Sub

Partial Private Sub OnAccount_UsernameChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Query_Id() As integer
Get
Return Me._Query_Id
End Get
Set(value As integer)
If (_Query_Id <> value  ) Then
Me.OnQuery_IdChanging(value)
Me.SendPropertyChanging()
Me._Query_Id = value
Me.SendPropertyChanged("Query_Id")
Me.OnQuery_IdChanged()
End If
End Set
End Property

Public Property Account_Code() As string
Get
Return Me._Account_Code
End Get
Set(value As string)
If (_Account_Code <> value  Or _Account_Code Is Nothing  ) Then
Me.OnAccount_CodeChanging(value)
Me.SendPropertyChanging()
Me._Account_Code = value
Me.SendPropertyChanged("Account_Code")
Me.OnAccount_CodeChanged()
End If
End Set
End Property

Public Property Post_Update() As Date
Get
Return Me._Post_Update
End Get
Set(value As Date)
If (_Post_Update <> value  ) Then
Me.OnPost_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Post_Update = value
Me.SendPropertyChanged("Post_Update")
Me.OnPost_UpdateChanged()
End If
End Set
End Property

Public Property Account_Username() As string
Get
Return Me._Account_Username
End Get
Set(value As string)
If (_Account_Username <> value  Or _Account_Username Is Nothing  ) Then
Me.OnAccount_UsernameChanging(value)
Me.SendPropertyChanging()
Me._Account_Username = value
Me.SendPropertyChanged("Account_Username")
Me.OnAccount_UsernameChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Zzz_Account_Add_Info
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Zzz_Account_Add_Info
Dim entity As Zzz_Account_Add_Info = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Gender_Type_Id As integer
Private _Place_Id As integer
Private _Post_Hours_Json As string = ""
Private _Post_Hours_Total As integer
Private _Lang As string = ""
Private _Business_Type_Id As integer
Private _Post_Weeks_Json As string = ""
Private _Status_Type_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnGender_Type_IdChanged()
End Sub

Partial Private Sub OnGender_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPlace_IdChanged()
End Sub

Partial Private Sub OnPlace_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_Hours_JsonChanged()
End Sub

Partial Private Sub OnPost_Hours_JsonChanging(ByVal value As string)
End Sub

Partial Private Sub OnPost_Hours_TotalChanged()
End Sub

Partial Private Sub OnPost_Hours_TotalChanging(ByVal value As integer)
End Sub

Partial Private Sub OnLangChanged()
End Sub

Partial Private Sub OnLangChanging(ByVal value As string)
End Sub

Partial Private Sub OnBusiness_Type_IdChanged()
End Sub

Partial Private Sub OnBusiness_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_Weeks_JsonChanged()
End Sub

Partial Private Sub OnPost_Weeks_JsonChanging(ByVal value As string)
End Sub

Partial Private Sub OnStatus_Type_IdChanged()
End Sub

Partial Private Sub OnStatus_Type_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Gender_Type_Id() As integer
Get
Return Me._Gender_Type_Id
End Get
Set(value As integer)
If (_Gender_Type_Id <> value  ) Then
Me.OnGender_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Gender_Type_Id = value
Me.SendPropertyChanged("Gender_Type_Id")
Me.OnGender_Type_IdChanged()
End If
End Set
End Property

Public Property Place_Id() As integer
Get
Return Me._Place_Id
End Get
Set(value As integer)
If (_Place_Id <> value  ) Then
Me.OnPlace_IdChanging(value)
Me.SendPropertyChanging()
Me._Place_Id = value
Me.SendPropertyChanged("Place_Id")
Me.OnPlace_IdChanged()
End If
End Set
End Property

Public Property Post_Hours_Json() As string
Get
Return Me._Post_Hours_Json
End Get
Set(value As string)
If (_Post_Hours_Json <> value  Or _Post_Hours_Json Is Nothing  ) Then
Me.OnPost_Hours_JsonChanging(value)
Me.SendPropertyChanging()
Me._Post_Hours_Json = value
Me.SendPropertyChanged("Post_Hours_Json")
Me.OnPost_Hours_JsonChanged()
End If
End Set
End Property

Public Property Post_Hours_Total() As integer
Get
Return Me._Post_Hours_Total
End Get
Set(value As integer)
If (_Post_Hours_Total <> value  ) Then
Me.OnPost_Hours_TotalChanging(value)
Me.SendPropertyChanging()
Me._Post_Hours_Total = value
Me.SendPropertyChanged("Post_Hours_Total")
Me.OnPost_Hours_TotalChanged()
End If
End Set
End Property

Public Property Lang() As string
Get
Return Me._Lang
End Get
Set(value As string)
If (_Lang <> value  Or _Lang Is Nothing  ) Then
Me.OnLangChanging(value)
Me.SendPropertyChanging()
Me._Lang = value
Me.SendPropertyChanged("Lang")
Me.OnLangChanged()
End If
End Set
End Property

Public Property Business_Type_Id() As integer
Get
Return Me._Business_Type_Id
End Get
Set(value As integer)
If (_Business_Type_Id <> value  ) Then
Me.OnBusiness_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Business_Type_Id = value
Me.SendPropertyChanged("Business_Type_Id")
Me.OnBusiness_Type_IdChanged()
End If
End Set
End Property

Public Property Post_Weeks_Json() As string
Get
Return Me._Post_Weeks_Json
End Get
Set(value As string)
If (_Post_Weeks_Json <> value  Or _Post_Weeks_Json Is Nothing  ) Then
Me.OnPost_Weeks_JsonChanging(value)
Me.SendPropertyChanging()
Me._Post_Weeks_Json = value
Me.SendPropertyChanged("Post_Weeks_Json")
Me.OnPost_Weeks_JsonChanged()
End If
End Set
End Property

Public Property Status_Type_Id() As integer
Get
Return Me._Status_Type_Id
End Get
Set(value As integer)
If (_Status_Type_Id <> value  ) Then
Me.OnStatus_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Status_Type_Id = value
Me.SendPropertyChanged("Status_Type_Id")
Me.OnStatus_Type_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Zzz_Account_Elaboration
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Zzz_Account_Elaboration
Dim entity As Zzz_Account_Elaboration = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Account_Follower_Last_Id As integer
Private _Archive_Link_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_Follower_Last_IdChanged()
End Sub

Partial Private Sub OnAccount_Follower_Last_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnArchive_Link_IdChanged()
End Sub

Partial Private Sub OnArchive_Link_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Account_Follower_Last_Id() As integer
Get
Return Me._Account_Follower_Last_Id
End Get
Set(value As integer)
If (_Account_Follower_Last_Id <> value  ) Then
Me.OnAccount_Follower_Last_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Follower_Last_Id = value
Me.SendPropertyChanged("Account_Follower_Last_Id")
Me.OnAccount_Follower_Last_IdChanged()
End If
End Set
End Property

Public Property Archive_Link_Id() As integer
Get
Return Me._Archive_Link_Id
End Get
Set(value As integer)
If (_Archive_Link_Id <> value  ) Then
Me.OnArchive_Link_IdChanging(value)
Me.SendPropertyChanging()
Me._Archive_Link_Id = value
Me.SendPropertyChanged("Archive_Link_Id")
Me.OnArchive_Link_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Zzz_Account_Link
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Zzz_Account_Link
Dim entity As Zzz_Account_Link = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Link_Type_Id As integer
Private _Account_Link_Id As integer
Private _Updating As Boolean
Private _Create_Date As Date
Private _Analysis As Boolean
Private _Excluded As Boolean

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnLink_Type_IdChanged()
End Sub

Partial Private Sub OnLink_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_Link_IdChanged()
End Sub

Partial Private Sub OnAccount_Link_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnUpdatingChanged()
End Sub

Partial Private Sub OnUpdatingChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnCreate_DateChanged()
End Sub

Partial Private Sub OnCreate_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnAnalysisChanged()
End Sub

Partial Private Sub OnAnalysisChanging(ByVal value As Boolean)
End Sub

Partial Private Sub OnExcludedChanged()
End Sub

Partial Private Sub OnExcludedChanging(ByVal value As Boolean)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Link_Type_Id() As integer
Get
Return Me._Link_Type_Id
End Get
Set(value As integer)
If (_Link_Type_Id <> value  ) Then
Me.OnLink_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Link_Type_Id = value
Me.SendPropertyChanged("Link_Type_Id")
Me.OnLink_Type_IdChanged()
End If
End Set
End Property

Public Property Account_Link_Id() As integer
Get
Return Me._Account_Link_Id
End Get
Set(value As integer)
If (_Account_Link_Id <> value  ) Then
Me.OnAccount_Link_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Link_Id = value
Me.SendPropertyChanged("Account_Link_Id")
Me.OnAccount_Link_IdChanged()
End If
End Set
End Property

Public Property Updating() As Boolean
Get
Return Me._Updating
End Get
Set(value As Boolean)
If (_Updating <> value  ) Then
Me.OnUpdatingChanging(value)
Me.SendPropertyChanging()
Me._Updating = value
Me.SendPropertyChanged("Updating")
Me.OnUpdatingChanged()
End If
End Set
End Property

Public Property Create_Date() As Date
Get
Return Me._Create_Date
End Get
Set(value As Date)
If (_Create_Date <> value  ) Then
Me.OnCreate_DateChanging(value)
Me.SendPropertyChanging()
Me._Create_Date = value
Me.SendPropertyChanged("Create_Date")
Me.OnCreate_DateChanged()
End If
End Set
End Property

Public Property Analysis() As Boolean
Get
Return Me._Analysis
End Get
Set(value As Boolean)
If (_Analysis <> value  ) Then
Me.OnAnalysisChanging(value)
Me.SendPropertyChanging()
Me._Analysis = value
Me.SendPropertyChanged("Analysis")
Me.OnAnalysisChanged()
End If
End Set
End Property

Public Property Excluded() As Boolean
Get
Return Me._Excluded
End Get
Set(value As Boolean)
If (_Excluded <> value  ) Then
Me.OnExcludedChanging(value)
Me.SendPropertyChanging()
Me._Excluded = value
Me.SendPropertyChanged("Excluded")
Me.OnExcludedChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Zzz_Account_Update
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Zzz_Account_Update
Dim entity As Zzz_Account_Update = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Profile_Update As Date
Private _Profile_Related_Update As Date
Private _Post_Count As integer
Private _Post_Update As Date
Private _Post_Update_Count As integer
Private _Post_Last_Code As string = ""
Private _Follower_Count As integer
Private _Follower_Update As Date
Private _Follower_Update_Count As integer
Private _Follower_Last_Code As string = ""
Private _Message_Post_Update As Date
Private _Message_Post_Last_Code As string = ""
Private _Favorite_Post_Update As Date
Private _Favorite_Post_Last_Code As string = ""
Private _Private_Post_Last_Code As string = ""
Private _Private_Post_Update As Date
Private _Share_Update As Date
Private _Share_Det_Update As Date
Private _Friend_Count As integer
Private _Friend_Update As Date
Private _Friend_Update_Count As integer
Private _Friend_Last_Code As string = ""
Private _Analysis_Follower_Update As Date
Private _Analysis_Follower_Post_Update As Date

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnProfile_UpdateChanged()
End Sub

Partial Private Sub OnProfile_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnProfile_Related_UpdateChanged()
End Sub

Partial Private Sub OnProfile_Related_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnPost_CountChanged()
End Sub

Partial Private Sub OnPost_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_UpdateChanged()
End Sub

Partial Private Sub OnPost_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnPost_Update_CountChanged()
End Sub

Partial Private Sub OnPost_Update_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_Last_CodeChanged()
End Sub

Partial Private Sub OnPost_Last_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnFollower_CountChanged()
End Sub

Partial Private Sub OnFollower_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFollower_UpdateChanged()
End Sub

Partial Private Sub OnFollower_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnFollower_Update_CountChanged()
End Sub

Partial Private Sub OnFollower_Update_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFollower_Last_CodeChanged()
End Sub

Partial Private Sub OnFollower_Last_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnMessage_Post_UpdateChanged()
End Sub

Partial Private Sub OnMessage_Post_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnMessage_Post_Last_CodeChanged()
End Sub

Partial Private Sub OnMessage_Post_Last_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnFavorite_Post_UpdateChanged()
End Sub

Partial Private Sub OnFavorite_Post_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnFavorite_Post_Last_CodeChanged()
End Sub

Partial Private Sub OnFavorite_Post_Last_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnPrivate_Post_Last_CodeChanged()
End Sub

Partial Private Sub OnPrivate_Post_Last_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnPrivate_Post_UpdateChanged()
End Sub

Partial Private Sub OnPrivate_Post_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnShare_UpdateChanged()
End Sub

Partial Private Sub OnShare_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnShare_Det_UpdateChanged()
End Sub

Partial Private Sub OnShare_Det_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnFriend_CountChanged()
End Sub

Partial Private Sub OnFriend_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFriend_UpdateChanged()
End Sub

Partial Private Sub OnFriend_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnFriend_Update_CountChanged()
End Sub

Partial Private Sub OnFriend_Update_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFriend_Last_CodeChanged()
End Sub

Partial Private Sub OnFriend_Last_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnAnalysis_Follower_UpdateChanged()
End Sub

Partial Private Sub OnAnalysis_Follower_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnAnalysis_Follower_Post_UpdateChanged()
End Sub

Partial Private Sub OnAnalysis_Follower_Post_UpdateChanging(ByVal value As Date)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Profile_Update() As Date
Get
Return Me._Profile_Update
End Get
Set(value As Date)
If (_Profile_Update <> value  ) Then
Me.OnProfile_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Profile_Update = value
Me.SendPropertyChanged("Profile_Update")
Me.OnProfile_UpdateChanged()
End If
End Set
End Property

Public Property Profile_Related_Update() As Date
Get
Return Me._Profile_Related_Update
End Get
Set(value As Date)
If (_Profile_Related_Update <> value  ) Then
Me.OnProfile_Related_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Profile_Related_Update = value
Me.SendPropertyChanged("Profile_Related_Update")
Me.OnProfile_Related_UpdateChanged()
End If
End Set
End Property

Public Property Post_Count() As integer
Get
Return Me._Post_Count
End Get
Set(value As integer)
If (_Post_Count <> value  ) Then
Me.OnPost_CountChanging(value)
Me.SendPropertyChanging()
Me._Post_Count = value
Me.SendPropertyChanged("Post_Count")
Me.OnPost_CountChanged()
End If
End Set
End Property

Public Property Post_Update() As Date
Get
Return Me._Post_Update
End Get
Set(value As Date)
If (_Post_Update <> value  ) Then
Me.OnPost_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Post_Update = value
Me.SendPropertyChanged("Post_Update")
Me.OnPost_UpdateChanged()
End If
End Set
End Property

Public Property Post_Update_Count() As integer
Get
Return Me._Post_Update_Count
End Get
Set(value As integer)
If (_Post_Update_Count <> value  ) Then
Me.OnPost_Update_CountChanging(value)
Me.SendPropertyChanging()
Me._Post_Update_Count = value
Me.SendPropertyChanged("Post_Update_Count")
Me.OnPost_Update_CountChanged()
End If
End Set
End Property

Public Property Post_Last_Code() As string
Get
Return Me._Post_Last_Code
End Get
Set(value As string)
If (_Post_Last_Code <> value  Or _Post_Last_Code Is Nothing  ) Then
Me.OnPost_Last_CodeChanging(value)
Me.SendPropertyChanging()
Me._Post_Last_Code = value
Me.SendPropertyChanged("Post_Last_Code")
Me.OnPost_Last_CodeChanged()
End If
End Set
End Property

Public Property Follower_Count() As integer
Get
Return Me._Follower_Count
End Get
Set(value As integer)
If (_Follower_Count <> value  ) Then
Me.OnFollower_CountChanging(value)
Me.SendPropertyChanging()
Me._Follower_Count = value
Me.SendPropertyChanged("Follower_Count")
Me.OnFollower_CountChanged()
End If
End Set
End Property

Public Property Follower_Update() As Date
Get
Return Me._Follower_Update
End Get
Set(value As Date)
If (_Follower_Update <> value  ) Then
Me.OnFollower_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Follower_Update = value
Me.SendPropertyChanged("Follower_Update")
Me.OnFollower_UpdateChanged()
End If
End Set
End Property

Public Property Follower_Update_Count() As integer
Get
Return Me._Follower_Update_Count
End Get
Set(value As integer)
If (_Follower_Update_Count <> value  ) Then
Me.OnFollower_Update_CountChanging(value)
Me.SendPropertyChanging()
Me._Follower_Update_Count = value
Me.SendPropertyChanged("Follower_Update_Count")
Me.OnFollower_Update_CountChanged()
End If
End Set
End Property

Public Property Follower_Last_Code() As string
Get
Return Me._Follower_Last_Code
End Get
Set(value As string)
If (_Follower_Last_Code <> value  Or _Follower_Last_Code Is Nothing  ) Then
Me.OnFollower_Last_CodeChanging(value)
Me.SendPropertyChanging()
Me._Follower_Last_Code = value
Me.SendPropertyChanged("Follower_Last_Code")
Me.OnFollower_Last_CodeChanged()
End If
End Set
End Property

Public Property Message_Post_Update() As Date
Get
Return Me._Message_Post_Update
End Get
Set(value As Date)
If (_Message_Post_Update <> value  ) Then
Me.OnMessage_Post_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Message_Post_Update = value
Me.SendPropertyChanged("Message_Post_Update")
Me.OnMessage_Post_UpdateChanged()
End If
End Set
End Property

Public Property Message_Post_Last_Code() As string
Get
Return Me._Message_Post_Last_Code
End Get
Set(value As string)
If (_Message_Post_Last_Code <> value  Or _Message_Post_Last_Code Is Nothing  ) Then
Me.OnMessage_Post_Last_CodeChanging(value)
Me.SendPropertyChanging()
Me._Message_Post_Last_Code = value
Me.SendPropertyChanged("Message_Post_Last_Code")
Me.OnMessage_Post_Last_CodeChanged()
End If
End Set
End Property

Public Property Favorite_Post_Update() As Date
Get
Return Me._Favorite_Post_Update
End Get
Set(value As Date)
If (_Favorite_Post_Update <> value  ) Then
Me.OnFavorite_Post_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Favorite_Post_Update = value
Me.SendPropertyChanged("Favorite_Post_Update")
Me.OnFavorite_Post_UpdateChanged()
End If
End Set
End Property

Public Property Favorite_Post_Last_Code() As string
Get
Return Me._Favorite_Post_Last_Code
End Get
Set(value As string)
If (_Favorite_Post_Last_Code <> value  Or _Favorite_Post_Last_Code Is Nothing  ) Then
Me.OnFavorite_Post_Last_CodeChanging(value)
Me.SendPropertyChanging()
Me._Favorite_Post_Last_Code = value
Me.SendPropertyChanged("Favorite_Post_Last_Code")
Me.OnFavorite_Post_Last_CodeChanged()
End If
End Set
End Property

Public Property Private_Post_Last_Code() As string
Get
Return Me._Private_Post_Last_Code
End Get
Set(value As string)
If (_Private_Post_Last_Code <> value  Or _Private_Post_Last_Code Is Nothing  ) Then
Me.OnPrivate_Post_Last_CodeChanging(value)
Me.SendPropertyChanging()
Me._Private_Post_Last_Code = value
Me.SendPropertyChanged("Private_Post_Last_Code")
Me.OnPrivate_Post_Last_CodeChanged()
End If
End Set
End Property

Public Property Private_Post_Update() As Date
Get
Return Me._Private_Post_Update
End Get
Set(value As Date)
If (_Private_Post_Update <> value  ) Then
Me.OnPrivate_Post_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Private_Post_Update = value
Me.SendPropertyChanged("Private_Post_Update")
Me.OnPrivate_Post_UpdateChanged()
End If
End Set
End Property

Public Property Share_Update() As Date
Get
Return Me._Share_Update
End Get
Set(value As Date)
If (_Share_Update <> value  ) Then
Me.OnShare_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Share_Update = value
Me.SendPropertyChanged("Share_Update")
Me.OnShare_UpdateChanged()
End If
End Set
End Property

Public Property Share_Det_Update() As Date
Get
Return Me._Share_Det_Update
End Get
Set(value As Date)
If (_Share_Det_Update <> value  ) Then
Me.OnShare_Det_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Share_Det_Update = value
Me.SendPropertyChanged("Share_Det_Update")
Me.OnShare_Det_UpdateChanged()
End If
End Set
End Property

Public Property Friend_Count() As integer
Get
Return Me._Friend_Count
End Get
Set(value As integer)
If (_Friend_Count <> value  ) Then
Me.OnFriend_CountChanging(value)
Me.SendPropertyChanging()
Me._Friend_Count = value
Me.SendPropertyChanged("Friend_Count")
Me.OnFriend_CountChanged()
End If
End Set
End Property

Public Property Friend_Update() As Date
Get
Return Me._Friend_Update
End Get
Set(value As Date)
If (_Friend_Update <> value  ) Then
Me.OnFriend_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Friend_Update = value
Me.SendPropertyChanged("Friend_Update")
Me.OnFriend_UpdateChanged()
End If
End Set
End Property

Public Property Friend_Update_Count() As integer
Get
Return Me._Friend_Update_Count
End Get
Set(value As integer)
If (_Friend_Update_Count <> value  ) Then
Me.OnFriend_Update_CountChanging(value)
Me.SendPropertyChanging()
Me._Friend_Update_Count = value
Me.SendPropertyChanged("Friend_Update_Count")
Me.OnFriend_Update_CountChanged()
End If
End Set
End Property

Public Property Friend_Last_Code() As string
Get
Return Me._Friend_Last_Code
End Get
Set(value As string)
If (_Friend_Last_Code <> value  Or _Friend_Last_Code Is Nothing  ) Then
Me.OnFriend_Last_CodeChanging(value)
Me.SendPropertyChanging()
Me._Friend_Last_Code = value
Me.SendPropertyChanged("Friend_Last_Code")
Me.OnFriend_Last_CodeChanged()
End If
End Set
End Property

Public Property Analysis_Follower_Update() As Date
Get
Return Me._Analysis_Follower_Update
End Get
Set(value As Date)
If (_Analysis_Follower_Update <> value  ) Then
Me.OnAnalysis_Follower_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Analysis_Follower_Update = value
Me.SendPropertyChanged("Analysis_Follower_Update")
Me.OnAnalysis_Follower_UpdateChanged()
End If
End Set
End Property

Public Property Analysis_Follower_Post_Update() As Date
Get
Return Me._Analysis_Follower_Post_Update
End Get
Set(value As Date)
If (_Analysis_Follower_Post_Update <> value  ) Then
Me.OnAnalysis_Follower_Post_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Analysis_Follower_Post_Update = value
Me.SendPropertyChanged("Analysis_Follower_Post_Update")
Me.OnAnalysis_Follower_Post_UpdateChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Zzz_Alert
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Zzz_Alert
Dim entity As Zzz_Alert = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Account_Id As integer
Private _Create_Date As Date
Private _Alert_Date As Date
Private _Alert_Type_Id As integer
Private _From_Account_Id As integer
Private _Alert_Data As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnCreate_DateChanged()
End Sub

Partial Private Sub OnCreate_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnAlert_DateChanged()
End Sub

Partial Private Sub OnAlert_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnAlert_Type_IdChanged()
End Sub

Partial Private Sub OnAlert_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnFrom_Account_IdChanged()
End Sub

Partial Private Sub OnFrom_Account_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAlert_DataChanged()
End Sub

Partial Private Sub OnAlert_DataChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Create_Date() As Date
Get
Return Me._Create_Date
End Get
Set(value As Date)
If (_Create_Date <> value  ) Then
Me.OnCreate_DateChanging(value)
Me.SendPropertyChanging()
Me._Create_Date = value
Me.SendPropertyChanged("Create_Date")
Me.OnCreate_DateChanged()
End If
End Set
End Property

Public Property Alert_Date() As Date
Get
Return Me._Alert_Date
End Get
Set(value As Date)
If (_Alert_Date <> value  ) Then
Me.OnAlert_DateChanging(value)
Me.SendPropertyChanging()
Me._Alert_Date = value
Me.SendPropertyChanged("Alert_Date")
Me.OnAlert_DateChanged()
End If
End Set
End Property

Public Property Alert_Type_Id() As integer
Get
Return Me._Alert_Type_Id
End Get
Set(value As integer)
If (_Alert_Type_Id <> value  ) Then
Me.OnAlert_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Alert_Type_Id = value
Me.SendPropertyChanged("Alert_Type_Id")
Me.OnAlert_Type_IdChanged()
End If
End Set
End Property

Public Property From_Account_Id() As integer
Get
Return Me._From_Account_Id
End Get
Set(value As integer)
If (_From_Account_Id <> value  ) Then
Me.OnFrom_Account_IdChanging(value)
Me.SendPropertyChanging()
Me._From_Account_Id = value
Me.SendPropertyChanged("From_Account_Id")
Me.OnFrom_Account_IdChanged()
End If
End Set
End Property

Public Property Alert_Data() As string
Get
Return Me._Alert_Data
End Get
Set(value As string)
If (_Alert_Data <> value  Or _Alert_Data Is Nothing  ) Then
Me.OnAlert_DataChanging(value)
Me.SendPropertyChanging()
Me._Alert_Data = value
Me.SendPropertyChanged("Alert_Data")
Me.OnAlert_DataChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Zzz_Auto_Follow_Account
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Zzz_Auto_Follow_Account
Dim entity As Zzz_Auto_Follow_Account = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Account_To_Foll_Code As string = ""
Private _Count_Follow As integer
Private _Account_To_Foll_Username As string = ""
Private _Status_Id As integer
Private _Update_Status_Date As Date
Private _Follow_Date As Date
Private _Unfollow_Date As Date
Private _Source_Type_Id As integer
Private _Source_Id As integer
Private _Source_Description As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_To_Foll_CodeChanged()
End Sub

Partial Private Sub OnAccount_To_Foll_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnCount_FollowChanged()
End Sub

Partial Private Sub OnCount_FollowChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_To_Foll_UsernameChanged()
End Sub

Partial Private Sub OnAccount_To_Foll_UsernameChanging(ByVal value As string)
End Sub

Partial Private Sub OnStatus_IdChanged()
End Sub

Partial Private Sub OnStatus_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnUpdate_Status_DateChanged()
End Sub

Partial Private Sub OnUpdate_Status_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnFollow_DateChanged()
End Sub

Partial Private Sub OnFollow_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnUnfollow_DateChanged()
End Sub

Partial Private Sub OnUnfollow_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnSource_Type_IdChanged()
End Sub

Partial Private Sub OnSource_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnSource_IdChanged()
End Sub

Partial Private Sub OnSource_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnSource_DescriptionChanged()
End Sub

Partial Private Sub OnSource_DescriptionChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Account_To_Foll_Code() As string
Get
Return Me._Account_To_Foll_Code
End Get
Set(value As string)
If (_Account_To_Foll_Code <> value  Or _Account_To_Foll_Code Is Nothing  ) Then
Me.OnAccount_To_Foll_CodeChanging(value)
Me.SendPropertyChanging()
Me._Account_To_Foll_Code = value
Me.SendPropertyChanged("Account_To_Foll_Code")
Me.OnAccount_To_Foll_CodeChanged()
End If
End Set
End Property

Public Property Count_Follow() As integer
Get
Return Me._Count_Follow
End Get
Set(value As integer)
If (_Count_Follow <> value  ) Then
Me.OnCount_FollowChanging(value)
Me.SendPropertyChanging()
Me._Count_Follow = value
Me.SendPropertyChanged("Count_Follow")
Me.OnCount_FollowChanged()
End If
End Set
End Property

Public Property Account_To_Foll_Username() As string
Get
Return Me._Account_To_Foll_Username
End Get
Set(value As string)
If (_Account_To_Foll_Username <> value  Or _Account_To_Foll_Username Is Nothing  ) Then
Me.OnAccount_To_Foll_UsernameChanging(value)
Me.SendPropertyChanging()
Me._Account_To_Foll_Username = value
Me.SendPropertyChanged("Account_To_Foll_Username")
Me.OnAccount_To_Foll_UsernameChanged()
End If
End Set
End Property

Public Property Status_Id() As integer
Get
Return Me._Status_Id
End Get
Set(value As integer)
If (_Status_Id <> value  ) Then
Me.OnStatus_IdChanging(value)
Me.SendPropertyChanging()
Me._Status_Id = value
Me.SendPropertyChanged("Status_Id")
Me.OnStatus_IdChanged()
End If
End Set
End Property

Public Property Update_Status_Date() As Date
Get
Return Me._Update_Status_Date
End Get
Set(value As Date)
If (_Update_Status_Date <> value  ) Then
Me.OnUpdate_Status_DateChanging(value)
Me.SendPropertyChanging()
Me._Update_Status_Date = value
Me.SendPropertyChanged("Update_Status_Date")
Me.OnUpdate_Status_DateChanged()
End If
End Set
End Property

Public Property Follow_Date() As Date
Get
Return Me._Follow_Date
End Get
Set(value As Date)
If (_Follow_Date <> value  ) Then
Me.OnFollow_DateChanging(value)
Me.SendPropertyChanging()
Me._Follow_Date = value
Me.SendPropertyChanged("Follow_Date")
Me.OnFollow_DateChanged()
End If
End Set
End Property

Public Property Unfollow_Date() As Date
Get
Return Me._Unfollow_Date
End Get
Set(value As Date)
If (_Unfollow_Date <> value  ) Then
Me.OnUnfollow_DateChanging(value)
Me.SendPropertyChanging()
Me._Unfollow_Date = value
Me.SendPropertyChanged("Unfollow_Date")
Me.OnUnfollow_DateChanged()
End If
End Set
End Property

Public Property Source_Type_Id() As integer
Get
Return Me._Source_Type_Id
End Get
Set(value As integer)
If (_Source_Type_Id <> value  ) Then
Me.OnSource_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Source_Type_Id = value
Me.SendPropertyChanged("Source_Type_Id")
Me.OnSource_Type_IdChanged()
End If
End Set
End Property

Public Property Source_Id() As integer
Get
Return Me._Source_Id
End Get
Set(value As integer)
If (_Source_Id <> value  ) Then
Me.OnSource_IdChanging(value)
Me.SendPropertyChanging()
Me._Source_Id = value
Me.SendPropertyChanged("Source_Id")
Me.OnSource_IdChanged()
End If
End Set
End Property

Public Property Source_Description() As string
Get
Return Me._Source_Description
End Get
Set(value As string)
If (_Source_Description <> value  Or _Source_Description Is Nothing  ) Then
Me.OnSource_DescriptionChanging(value)
Me.SendPropertyChanging()
Me._Source_Description = value
Me.SendPropertyChanged("Source_Description")
Me.OnSource_DescriptionChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Zzz_Query_Account
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Zzz_Query_Account
Dim entity As Zzz_Query_Account = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Query_Id As integer
Private _Account_Code As string = ""
Private _Post_Update As Date
Private _Account_Username As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnQuery_IdChanged()
End Sub

Partial Private Sub OnQuery_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_CodeChanged()
End Sub

Partial Private Sub OnAccount_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnPost_UpdateChanged()
End Sub

Partial Private Sub OnPost_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnAccount_UsernameChanged()
End Sub

Partial Private Sub OnAccount_UsernameChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Query_Id() As integer
Get
Return Me._Query_Id
End Get
Set(value As integer)
If (_Query_Id <> value  ) Then
Me.OnQuery_IdChanging(value)
Me.SendPropertyChanging()
Me._Query_Id = value
Me.SendPropertyChanged("Query_Id")
Me.OnQuery_IdChanged()
End If
End Set
End Property

Public Property Account_Code() As string
Get
Return Me._Account_Code
End Get
Set(value As string)
If (_Account_Code <> value  Or _Account_Code Is Nothing  ) Then
Me.OnAccount_CodeChanging(value)
Me.SendPropertyChanging()
Me._Account_Code = value
Me.SendPropertyChanged("Account_Code")
Me.OnAccount_CodeChanged()
End If
End Set
End Property

Public Property Post_Update() As Date
Get
Return Me._Post_Update
End Get
Set(value As Date)
If (_Post_Update <> value  ) Then
Me.OnPost_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Post_Update = value
Me.SendPropertyChanged("Post_Update")
Me.OnPost_UpdateChanged()
End If
End Set
End Property

Public Property Account_Username() As string
Get
Return Me._Account_Username
End Get
Set(value As string)
If (_Account_Username <> value  Or _Account_Username Is Nothing  ) Then
Me.OnAccount_UsernameChanging(value)
Me.SendPropertyChanging()
Me._Account_Username = value
Me.SendPropertyChanged("Account_Username")
Me.OnAccount_UsernameChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Zzz_Query_Post
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Zzz_Query_Post
Dim entity As Zzz_Query_Post = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Post_Code As string = ""
Private _Query_Id As integer
Private _Post_Text As string = ""
Private _Pubb_Date As Date
Private _Image_Url As string = ""
Private _Share_Count As integer
Private _Account_Code As string = ""
Private _Account_Follower_Count As integer
Private _Account_Username As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_CodeChanged()
End Sub

Partial Private Sub OnPost_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnQuery_IdChanged()
End Sub

Partial Private Sub OnQuery_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_TextChanged()
End Sub

Partial Private Sub OnPost_TextChanging(ByVal value As string)
End Sub

Partial Private Sub OnPubb_DateChanged()
End Sub

Partial Private Sub OnPubb_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnImage_UrlChanged()
End Sub

Partial Private Sub OnImage_UrlChanging(ByVal value As string)
End Sub

Partial Private Sub OnShare_CountChanged()
End Sub

Partial Private Sub OnShare_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_CodeChanged()
End Sub

Partial Private Sub OnAccount_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnAccount_Follower_CountChanged()
End Sub

Partial Private Sub OnAccount_Follower_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_UsernameChanged()
End Sub

Partial Private Sub OnAccount_UsernameChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Post_Code() As string
Get
Return Me._Post_Code
End Get
Set(value As string)
If (_Post_Code <> value  Or _Post_Code Is Nothing  ) Then
Me.OnPost_CodeChanging(value)
Me.SendPropertyChanging()
Me._Post_Code = value
Me.SendPropertyChanged("Post_Code")
Me.OnPost_CodeChanged()
End If
End Set
End Property

Public Property Query_Id() As integer
Get
Return Me._Query_Id
End Get
Set(value As integer)
If (_Query_Id <> value  ) Then
Me.OnQuery_IdChanging(value)
Me.SendPropertyChanging()
Me._Query_Id = value
Me.SendPropertyChanged("Query_Id")
Me.OnQuery_IdChanged()
End If
End Set
End Property

Public Property Post_Text() As string
Get
Return Me._Post_Text
End Get
Set(value As string)
If (_Post_Text <> value  Or _Post_Text Is Nothing  ) Then
Me.OnPost_TextChanging(value)
Me.SendPropertyChanging()
Me._Post_Text = value
Me.SendPropertyChanged("Post_Text")
Me.OnPost_TextChanged()
End If
End Set
End Property

Public Property Pubb_Date() As Date
Get
Return Me._Pubb_Date
End Get
Set(value As Date)
If (_Pubb_Date <> value  ) Then
Me.OnPubb_DateChanging(value)
Me.SendPropertyChanging()
Me._Pubb_Date = value
Me.SendPropertyChanged("Pubb_Date")
Me.OnPubb_DateChanged()
End If
End Set
End Property

Public Property Image_Url() As string
Get
Return Me._Image_Url
End Get
Set(value As string)
If (_Image_Url <> value  Or _Image_Url Is Nothing  ) Then
Me.OnImage_UrlChanging(value)
Me.SendPropertyChanging()
Me._Image_Url = value
Me.SendPropertyChanged("Image_Url")
Me.OnImage_UrlChanged()
End If
End Set
End Property

Public Property Share_Count() As integer
Get
Return Me._Share_Count
End Get
Set(value As integer)
If (_Share_Count <> value  ) Then
Me.OnShare_CountChanging(value)
Me.SendPropertyChanging()
Me._Share_Count = value
Me.SendPropertyChanged("Share_Count")
Me.OnShare_CountChanged()
End If
End Set
End Property

Public Property Account_Code() As string
Get
Return Me._Account_Code
End Get
Set(value As string)
If (_Account_Code <> value  Or _Account_Code Is Nothing  ) Then
Me.OnAccount_CodeChanging(value)
Me.SendPropertyChanging()
Me._Account_Code = value
Me.SendPropertyChanged("Account_Code")
Me.OnAccount_CodeChanged()
End If
End Set
End Property

Public Property Account_Follower_Count() As integer
Get
Return Me._Account_Follower_Count
End Get
Set(value As integer)
If (_Account_Follower_Count <> value  ) Then
Me.OnAccount_Follower_CountChanging(value)
Me.SendPropertyChanging()
Me._Account_Follower_Count = value
Me.SendPropertyChanged("Account_Follower_Count")
Me.OnAccount_Follower_CountChanged()
End If
End Set
End Property

Public Property Account_Username() As string
Get
Return Me._Account_Username
End Get
Set(value As string)
If (_Account_Username <> value  Or _Account_Username Is Nothing  ) Then
Me.OnAccount_UsernameChanging(value)
Me.SendPropertyChanging()
Me._Account_Username = value
Me.SendPropertyChanged("Account_Username")
Me.OnAccount_UsernameChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Zzz_Share_Post
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Zzz_Share_Post
Dim entity As Zzz_Share_Post = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Post_Code As string = ""
Private _Account_Id As integer
Private _Post_Text As string = ""
Private _Pubb_Date As Date
Private _Share_Det_Count As integer
Private _Share_Det_Update As Date
Private _Share_Det_Update_Count As integer
Private _Hash_Id As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_CodeChanged()
End Sub

Partial Private Sub OnPost_CodeChanging(ByVal value As string)
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPost_TextChanged()
End Sub

Partial Private Sub OnPost_TextChanging(ByVal value As string)
End Sub

Partial Private Sub OnPubb_DateChanged()
End Sub

Partial Private Sub OnPubb_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnShare_Det_CountChanged()
End Sub

Partial Private Sub OnShare_Det_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnShare_Det_UpdateChanged()
End Sub

Partial Private Sub OnShare_Det_UpdateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnShare_Det_Update_CountChanged()
End Sub

Partial Private Sub OnShare_Det_Update_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnHash_IdChanged()
End Sub

Partial Private Sub OnHash_IdChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Post_Code() As string
Get
Return Me._Post_Code
End Get
Set(value As string)
If (_Post_Code <> value  Or _Post_Code Is Nothing  ) Then
Me.OnPost_CodeChanging(value)
Me.SendPropertyChanging()
Me._Post_Code = value
Me.SendPropertyChanged("Post_Code")
Me.OnPost_CodeChanged()
End If
End Set
End Property

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Post_Text() As string
Get
Return Me._Post_Text
End Get
Set(value As string)
If (_Post_Text <> value  Or _Post_Text Is Nothing  ) Then
Me.OnPost_TextChanging(value)
Me.SendPropertyChanging()
Me._Post_Text = value
Me.SendPropertyChanged("Post_Text")
Me.OnPost_TextChanged()
End If
End Set
End Property

Public Property Pubb_Date() As Date
Get
Return Me._Pubb_Date
End Get
Set(value As Date)
If (_Pubb_Date <> value  ) Then
Me.OnPubb_DateChanging(value)
Me.SendPropertyChanging()
Me._Pubb_Date = value
Me.SendPropertyChanged("Pubb_Date")
Me.OnPubb_DateChanged()
End If
End Set
End Property

Public Property Share_Det_Count() As integer
Get
Return Me._Share_Det_Count
End Get
Set(value As integer)
If (_Share_Det_Count <> value  ) Then
Me.OnShare_Det_CountChanging(value)
Me.SendPropertyChanging()
Me._Share_Det_Count = value
Me.SendPropertyChanged("Share_Det_Count")
Me.OnShare_Det_CountChanged()
End If
End Set
End Property

Public Property Share_Det_Update() As Date
Get
Return Me._Share_Det_Update
End Get
Set(value As Date)
If (_Share_Det_Update <> value  ) Then
Me.OnShare_Det_UpdateChanging(value)
Me.SendPropertyChanging()
Me._Share_Det_Update = value
Me.SendPropertyChanged("Share_Det_Update")
Me.OnShare_Det_UpdateChanged()
End If
End Set
End Property

Public Property Share_Det_Update_Count() As integer
Get
Return Me._Share_Det_Update_Count
End Get
Set(value As integer)
If (_Share_Det_Update_Count <> value  ) Then
Me.OnShare_Det_Update_CountChanging(value)
Me.SendPropertyChanging()
Me._Share_Det_Update_Count = value
Me.SendPropertyChanged("Share_Det_Update_Count")
Me.OnShare_Det_Update_CountChanged()
End If
End Set
End Property

Public Property Hash_Id() As integer
Get
Return Me._Hash_Id
End Get
Set(value As integer)
If (_Hash_Id <> value  ) Then
Me.OnHash_IdChanging(value)
Me.SendPropertyChanging()
Me._Hash_Id = value
Me.SendPropertyChanged("Hash_Id")
Me.OnHash_IdChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Zzz_Trend
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Zzz_Trend
Dim entity As Zzz_Trend = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Account_Id As integer
Private _Trend_Type_Id As integer
Private _Trend_Date As Date
Private _Value As integer

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnTrend_Type_IdChanged()
End Sub

Partial Private Sub OnTrend_Type_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnTrend_DateChanged()
End Sub

Partial Private Sub OnTrend_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnValueChanged()
End Sub

Partial Private Sub OnValueChanging(ByVal value As integer)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Trend_Type_Id() As integer
Get
Return Me._Trend_Type_Id
End Get
Set(value As integer)
If (_Trend_Type_Id <> value  ) Then
Me.OnTrend_Type_IdChanging(value)
Me.SendPropertyChanging()
Me._Trend_Type_Id = value
Me.SendPropertyChanged("Trend_Type_Id")
Me.OnTrend_Type_IdChanged()
End If
End Set
End Property

Public Property Trend_Date() As Date
Get
Return Me._Trend_Date
End Get
Set(value As Date)
If (_Trend_Date <> value  ) Then
Me.OnTrend_DateChanging(value)
Me.SendPropertyChanging()
Me._Trend_Date = value
Me.SendPropertyChanged("Trend_Date")
Me.OnTrend_DateChanged()
End If
End Set
End Property

Public Property Value() As integer
Get
Return Me._Value
End Get
Set(value As integer)
If (_Value <> value  ) Then
Me.OnValueChanging(value)
Me.SendPropertyChanging()
Me._Value = value
Me.SendPropertyChanged("Value")
Me.OnValueChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Zzz_User
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Zzz_User
Dim entity As Zzz_User = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _Id As integer
Private _Email As string = ""
Private _Password As string = ""
Private _Name As string = ""
Private _Surname As string = ""
Private _Plan_Id As integer
Private _Plan_Month As integer
Private _Plan_Expire_Date As Date
Private _Promo_Id As integer
Private _Promo_Expire_Date As Date
Private _Last_View_Alert_Date As Date
Private _Session_Json As string = ""

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnIdChanged()
End Sub

Partial Private Sub OnIdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnEmailChanged()
End Sub

Partial Private Sub OnEmailChanging(ByVal value As string)
End Sub

Partial Private Sub OnPasswordChanged()
End Sub

Partial Private Sub OnPasswordChanging(ByVal value As string)
End Sub

Partial Private Sub OnNameChanged()
End Sub

Partial Private Sub OnNameChanging(ByVal value As string)
End Sub

Partial Private Sub OnSurnameChanged()
End Sub

Partial Private Sub OnSurnameChanging(ByVal value As string)
End Sub

Partial Private Sub OnPlan_IdChanged()
End Sub

Partial Private Sub OnPlan_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPlan_MonthChanged()
End Sub

Partial Private Sub OnPlan_MonthChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPlan_Expire_DateChanged()
End Sub

Partial Private Sub OnPlan_Expire_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnPromo_IdChanged()
End Sub

Partial Private Sub OnPromo_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnPromo_Expire_DateChanged()
End Sub

Partial Private Sub OnPromo_Expire_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnLast_View_Alert_DateChanged()
End Sub

Partial Private Sub OnLast_View_Alert_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnSession_JsonChanged()
End Sub

Partial Private Sub OnSession_JsonChanging(ByVal value As string)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property Id() As integer
Get
Return Me._Id
End Get
Set(value As integer)
If (_Id <> value  ) Then
Me.OnIdChanging(value)
Me.SendPropertyChanging()
Me._Id = value
Me.SendPropertyChanged("Id")
Me.OnIdChanged()
End If
End Set
End Property

Public Property Email() As string
Get
Return Me._Email
End Get
Set(value As string)
If (_Email <> value  Or _Email Is Nothing  ) Then
Me.OnEmailChanging(value)
Me.SendPropertyChanging()
Me._Email = value
Me.SendPropertyChanged("Email")
Me.OnEmailChanged()
End If
End Set
End Property

Public Property Password() As string
Get
Return Me._Password
End Get
Set(value As string)
If (_Password <> value  Or _Password Is Nothing  ) Then
Me.OnPasswordChanging(value)
Me.SendPropertyChanging()
Me._Password = value
Me.SendPropertyChanged("Password")
Me.OnPasswordChanged()
End If
End Set
End Property

Public Property Name() As string
Get
Return Me._Name
End Get
Set(value As string)
If (_Name <> value  Or _Name Is Nothing  ) Then
Me.OnNameChanging(value)
Me.SendPropertyChanging()
Me._Name = value
Me.SendPropertyChanged("Name")
Me.OnNameChanged()
End If
End Set
End Property

Public Property Surname() As string
Get
Return Me._Surname
End Get
Set(value As string)
If (_Surname <> value  Or _Surname Is Nothing  ) Then
Me.OnSurnameChanging(value)
Me.SendPropertyChanging()
Me._Surname = value
Me.SendPropertyChanged("Surname")
Me.OnSurnameChanged()
End If
End Set
End Property

Public Property Plan_Id() As integer
Get
Return Me._Plan_Id
End Get
Set(value As integer)
If (_Plan_Id <> value  ) Then
Me.OnPlan_IdChanging(value)
Me.SendPropertyChanging()
Me._Plan_Id = value
Me.SendPropertyChanged("Plan_Id")
Me.OnPlan_IdChanged()
End If
End Set
End Property

Public Property Plan_Month() As integer
Get
Return Me._Plan_Month
End Get
Set(value As integer)
If (_Plan_Month <> value  ) Then
Me.OnPlan_MonthChanging(value)
Me.SendPropertyChanging()
Me._Plan_Month = value
Me.SendPropertyChanged("Plan_Month")
Me.OnPlan_MonthChanged()
End If
End Set
End Property

Public Property Plan_Expire_Date() As Date
Get
Return Me._Plan_Expire_Date
End Get
Set(value As Date)
If (_Plan_Expire_Date <> value  ) Then
Me.OnPlan_Expire_DateChanging(value)
Me.SendPropertyChanging()
Me._Plan_Expire_Date = value
Me.SendPropertyChanged("Plan_Expire_Date")
Me.OnPlan_Expire_DateChanged()
End If
End Set
End Property

Public Property Promo_Id() As integer
Get
Return Me._Promo_Id
End Get
Set(value As integer)
If (_Promo_Id <> value  ) Then
Me.OnPromo_IdChanging(value)
Me.SendPropertyChanging()
Me._Promo_Id = value
Me.SendPropertyChanged("Promo_Id")
Me.OnPromo_IdChanged()
End If
End Set
End Property

Public Property Promo_Expire_Date() As Date
Get
Return Me._Promo_Expire_Date
End Get
Set(value As Date)
If (_Promo_Expire_Date <> value  ) Then
Me.OnPromo_Expire_DateChanging(value)
Me.SendPropertyChanging()
Me._Promo_Expire_Date = value
Me.SendPropertyChanged("Promo_Expire_Date")
Me.OnPromo_Expire_DateChanged()
End If
End Set
End Property

Public Property Last_View_Alert_Date() As Date
Get
Return Me._Last_View_Alert_Date
End Get
Set(value As Date)
If (_Last_View_Alert_Date <> value  ) Then
Me.OnLast_View_Alert_DateChanging(value)
Me.SendPropertyChanging()
Me._Last_View_Alert_Date = value
Me.SendPropertyChanged("Last_View_Alert_Date")
Me.OnLast_View_Alert_DateChanged()
End If
End Set
End Property

Public Property Session_Json() As string
Get
Return Me._Session_Json
End Get
Set(value As string)
If (_Session_Json <> value  Or _Session_Json Is Nothing  ) Then
Me.OnSession_JsonChanging(value)
Me.SendPropertyChanging()
Me._Session_Json = value
Me.SendPropertyChanged("Session_Json")
Me.OnSession_JsonChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

Partial Public Class Zzz_User_Account
Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("") 

Private ReadOnly Property DB() As GloukDB
Get
If Me.PropertyChangedEvent IsNot Nothing Then
Return Me.PropertyChangedEvent.Target.db
Else
Return Nothing
End If
End Get
End Property
Public Function Clone() As Zzz_User_Account
Dim entity As Zzz_User_Account = Me.MemberwiseClone()
RemoveHandler entity.PropertyChanged, Me.PropertyChangedEvent
Return entity
End Function 

Private _User_Id As integer
Private _Account_Id As integer
Private _Oauth_Consumer_Key As string = ""
Private _Oauth_Consumer_Secret As string = ""
Private _Oauth_Token As string = ""
Private _Oauth_Token_Secret As string = ""
Private _Network_Id As integer
Private _Last_Rate_Limit_Post As Date
Private _Last_Rate_Limit_Share_Post As Date
Private _Last_Rate_Limit_Search As Date
Private _Error_Account_Last_Date As Date
Private _Error_Account_Count As integer
Private _Disabled As sbyte

#Region "Extensibility Method Declarations"
Partial Private Sub OnCreated()
End Sub

Partial Private Sub OnUser_IdChanged()
End Sub

Partial Private Sub OnUser_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnAccount_IdChanged()
End Sub

Partial Private Sub OnAccount_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnOauth_Consumer_KeyChanged()
End Sub

Partial Private Sub OnOauth_Consumer_KeyChanging(ByVal value As string)
End Sub

Partial Private Sub OnOauth_Consumer_SecretChanged()
End Sub

Partial Private Sub OnOauth_Consumer_SecretChanging(ByVal value As string)
End Sub

Partial Private Sub OnOauth_TokenChanged()
End Sub

Partial Private Sub OnOauth_TokenChanging(ByVal value As string)
End Sub

Partial Private Sub OnOauth_Token_SecretChanged()
End Sub

Partial Private Sub OnOauth_Token_SecretChanging(ByVal value As string)
End Sub

Partial Private Sub OnNetwork_IdChanged()
End Sub

Partial Private Sub OnNetwork_IdChanging(ByVal value As integer)
End Sub

Partial Private Sub OnLast_Rate_Limit_PostChanged()
End Sub

Partial Private Sub OnLast_Rate_Limit_PostChanging(ByVal value As Date)
End Sub

Partial Private Sub OnLast_Rate_Limit_Share_PostChanged()
End Sub

Partial Private Sub OnLast_Rate_Limit_Share_PostChanging(ByVal value As Date)
End Sub

Partial Private Sub OnLast_Rate_Limit_SearchChanged()
End Sub

Partial Private Sub OnLast_Rate_Limit_SearchChanging(ByVal value As Date)
End Sub

Partial Private Sub OnError_Account_Last_DateChanged()
End Sub

Partial Private Sub OnError_Account_Last_DateChanging(ByVal value As Date)
End Sub

Partial Private Sub OnError_Account_CountChanged()
End Sub

Partial Private Sub OnError_Account_CountChanging(ByVal value As integer)
End Sub

Partial Private Sub OnDisabledChanged()
End Sub

Partial Private Sub OnDisabledChanging(ByVal value As sbyte)
End Sub

#End Region
Public Sub New()
MyBase.New()
Me.OnCreated()
End Sub

Public Property User_Id() As integer
Get
Return Me._User_Id
End Get
Set(value As integer)
If (_User_Id <> value  ) Then
Me.OnUser_IdChanging(value)
Me.SendPropertyChanging()
Me._User_Id = value
Me.SendPropertyChanged("User_Id")
Me.OnUser_IdChanged()
End If
End Set
End Property

Public Property Account_Id() As integer
Get
Return Me._Account_Id
End Get
Set(value As integer)
If (_Account_Id <> value  ) Then
Me.OnAccount_IdChanging(value)
Me.SendPropertyChanging()
Me._Account_Id = value
Me.SendPropertyChanged("Account_Id")
Me.OnAccount_IdChanged()
End If
End Set
End Property

Public Property Oauth_Consumer_Key() As string
Get
Return Me._Oauth_Consumer_Key
End Get
Set(value As string)
If (_Oauth_Consumer_Key <> value  Or _Oauth_Consumer_Key Is Nothing  ) Then
Me.OnOauth_Consumer_KeyChanging(value)
Me.SendPropertyChanging()
Me._Oauth_Consumer_Key = value
Me.SendPropertyChanged("Oauth_Consumer_Key")
Me.OnOauth_Consumer_KeyChanged()
End If
End Set
End Property

Public Property Oauth_Consumer_Secret() As string
Get
Return Me._Oauth_Consumer_Secret
End Get
Set(value As string)
If (_Oauth_Consumer_Secret <> value  Or _Oauth_Consumer_Secret Is Nothing  ) Then
Me.OnOauth_Consumer_SecretChanging(value)
Me.SendPropertyChanging()
Me._Oauth_Consumer_Secret = value
Me.SendPropertyChanged("Oauth_Consumer_Secret")
Me.OnOauth_Consumer_SecretChanged()
End If
End Set
End Property

Public Property Oauth_Token() As string
Get
Return Me._Oauth_Token
End Get
Set(value As string)
If (_Oauth_Token <> value  Or _Oauth_Token Is Nothing  ) Then
Me.OnOauth_TokenChanging(value)
Me.SendPropertyChanging()
Me._Oauth_Token = value
Me.SendPropertyChanged("Oauth_Token")
Me.OnOauth_TokenChanged()
End If
End Set
End Property

Public Property Oauth_Token_Secret() As string
Get
Return Me._Oauth_Token_Secret
End Get
Set(value As string)
If (_Oauth_Token_Secret <> value  Or _Oauth_Token_Secret Is Nothing  ) Then
Me.OnOauth_Token_SecretChanging(value)
Me.SendPropertyChanging()
Me._Oauth_Token_Secret = value
Me.SendPropertyChanged("Oauth_Token_Secret")
Me.OnOauth_Token_SecretChanged()
End If
End Set
End Property

Public Property Network_Id() As integer
Get
Return Me._Network_Id
End Get
Set(value As integer)
If (_Network_Id <> value  ) Then
Me.OnNetwork_IdChanging(value)
Me.SendPropertyChanging()
Me._Network_Id = value
Me.SendPropertyChanged("Network_Id")
Me.OnNetwork_IdChanged()
End If
End Set
End Property

Public Property Last_Rate_Limit_Post() As Date
Get
Return Me._Last_Rate_Limit_Post
End Get
Set(value As Date)
If (_Last_Rate_Limit_Post <> value  ) Then
Me.OnLast_Rate_Limit_PostChanging(value)
Me.SendPropertyChanging()
Me._Last_Rate_Limit_Post = value
Me.SendPropertyChanged("Last_Rate_Limit_Post")
Me.OnLast_Rate_Limit_PostChanged()
End If
End Set
End Property

Public Property Last_Rate_Limit_Share_Post() As Date
Get
Return Me._Last_Rate_Limit_Share_Post
End Get
Set(value As Date)
If (_Last_Rate_Limit_Share_Post <> value  ) Then
Me.OnLast_Rate_Limit_Share_PostChanging(value)
Me.SendPropertyChanging()
Me._Last_Rate_Limit_Share_Post = value
Me.SendPropertyChanged("Last_Rate_Limit_Share_Post")
Me.OnLast_Rate_Limit_Share_PostChanged()
End If
End Set
End Property

Public Property Last_Rate_Limit_Search() As Date
Get
Return Me._Last_Rate_Limit_Search
End Get
Set(value As Date)
If (_Last_Rate_Limit_Search <> value  ) Then
Me.OnLast_Rate_Limit_SearchChanging(value)
Me.SendPropertyChanging()
Me._Last_Rate_Limit_Search = value
Me.SendPropertyChanged("Last_Rate_Limit_Search")
Me.OnLast_Rate_Limit_SearchChanged()
End If
End Set
End Property

Public Property Error_Account_Last_Date() As Date
Get
Return Me._Error_Account_Last_Date
End Get
Set(value As Date)
If (_Error_Account_Last_Date <> value  ) Then
Me.OnError_Account_Last_DateChanging(value)
Me.SendPropertyChanging()
Me._Error_Account_Last_Date = value
Me.SendPropertyChanged("Error_Account_Last_Date")
Me.OnError_Account_Last_DateChanged()
End If
End Set
End Property

Public Property Error_Account_Count() As integer
Get
Return Me._Error_Account_Count
End Get
Set(value As integer)
If (_Error_Account_Count <> value  ) Then
Me.OnError_Account_CountChanging(value)
Me.SendPropertyChanging()
Me._Error_Account_Count = value
Me.SendPropertyChanged("Error_Account_Count")
Me.OnError_Account_CountChanged()
End If
End Set
End Property

Public Property Disabled() As sbyte
Get
Return Me._Disabled
End Get
Set(value As sbyte)
If (_Disabled <> value  ) Then
Me.OnDisabledChanging(value)
Me.SendPropertyChanging()
Me._Disabled = value
Me.SendPropertyChanged("Disabled")
Me.OnDisabledChanged()
End If
End Set
End Property

Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
Protected Overridable Sub SendPropertyChanging()
Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
If (Not (h) Is Nothing) Then
h(Me, emptyChangingEventArgs)
End If
End Sub
Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
If (Not (h) Is Nothing) Then
h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
End If
End Sub
End Class

#End Region

#Region "struttura DB"
Public Class [Structure]
Inherits DBStructureBase
Public Sub New()
Dim newtab As New DBContext.TableProperty

newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Link_Type_Id")
newtab.Fields.Add("Link_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Account_Link_Id")
newtab.Fields.Add("Account_Link_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Updating", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Create_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Analysis", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Excluded", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("_Account_Link", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Post_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Text", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Pubb_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("_Account_Post", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Query_Id")
newtab.Fields.Add("Query_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Account_Code")
newtab.Fields.Add("Account_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Post_Update")
newtab.Fields.Add("Post_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Post_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Username", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Follower_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("_Query_Account", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Post_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Query_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Text", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Pubb_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Image_Url", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Follower_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Username", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("_Query_Post", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Trend_Type_Id")
newtab.Fields.Add("Trend_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Trend_Date")
newtab.Fields.Add("Trend_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Value", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("_Trend", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Network_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Username", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Fullname", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Avatar", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Location", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Description", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Url", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Joined_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Utc_Offset", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Archive_Post_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Account", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Profile_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Update_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Last_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Last_Pubb_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Follower_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Friend_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Gender_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Place_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Hours_Json", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Hours_Total", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Lang", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Business_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Weeks_Json", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Status_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Private_Post", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Verified", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("List_Memberships_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Account_Add_Info", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Oauth_Consumer_Key", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Oauth_Consumer_Secret", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Oauth_Token", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Oauth_Token_Secret", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Network_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_Rate_Limit_Post", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_Rate_Limit_Share_Post", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_Rate_Limit_Search", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Error_Account_Last_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Error_Account_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Disabled", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Analysis_Followers", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Analysis_Followers_Limit", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Account_Auth", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Description", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Filter_Json", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Account_Filter", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Klout_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Score", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Topics", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Account_Klout", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Auto_Unfoll_Not_Follower", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Auto_Unfoll_Not_Follower_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Follow_Day_Limit", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Unfollow_Day_Limit", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Account_Option", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Profile_Related_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Follower_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Follower_Update_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Follower_Last_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Follower_Account_Last_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Message_Post_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Message_Post_Last_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Favorite_Post_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Favorite_Post_Last_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Private_Post_Last_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Private_Post_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Det_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Friend_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Friend_Update_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Friend_Last_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Analysis_Follower_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Analysis_Follower_Post_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Archive_Link_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Archive_Trend_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Account_Update", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Alert_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("From_Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Alert_Data", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Alert_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Alert", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Archive_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Table_Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Record_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Archive_Data", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Archive_Id"
newtab.PrimaryKeys.Add("Archive_Id")
newtab.Fields.Add("Archive_Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Archive_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Ref_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Archive_Simil_Text", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Account_To_Foll_Id")
newtab.Fields.Add("Account_To_Foll_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Count_Follow")
newtab.Fields.Add("Count_Follow", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Status_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Update_Status_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Follow_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Unfollow_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Source_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Source_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Source_Description", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Auto_Follow_Account", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Profile_Account_Id")
newtab.Fields.Add("Profile_Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Followed_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Follower_Last_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Auto_Follow_Profile", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Query_Id")
newtab.Fields.Add("Query_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Followed_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Accuracy_Total_Account", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Auto_Follow_Query", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Description", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Query", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Folder_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Categorize", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Categorize_Id")
newtab.Fields.Add("Categorize_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Account_Categozie_Id")
newtab.Fields.Add("Account_Categozie_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Post_Total", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Accuracy", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Categorize_Account", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Categorize_Id")
newtab.Fields.Add("Categorize_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Account_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Categorize_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Accuracy_Total_Account", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Categorize_Follower", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Word_Id")
newtab.Fields.Add("Word_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Word", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Word_Ref_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Type", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Dictionary_Link_It", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Post_Code")
newtab.Fields.Add("Post_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Post_Text", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Pubb_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Favorite_Post", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Url", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_Modified", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Etag", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Item_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Item_Last_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Feedrss", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Hash", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Feedrss_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Title", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Description", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Link", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Feedrss_Item", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Ref_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Folder", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("User_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Folder_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Folder_Parent_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Is_Shared", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Folder", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Analysis_Type_Id")
newtab.Fields.Add("Analysis_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Data_Type_Id")
newtab.Fields.Add("Data_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Value", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Follower_Analysis", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Gender", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Gender_Db_1", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Gender", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Gender_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Lang", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Freq", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Gender_Db_2", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Gender_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Lang", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Freq", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Gender_Name", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Gender_Type_Id1", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Gender_Type_Id2", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Gender_Name_Copy", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("User_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Group_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Description", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Ids_Json", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Group_Account", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("User_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Group_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Description", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Query_Ids_Json", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Group_Query", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Lang_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Language", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Language_En", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Native_Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Language", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Lang_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Language", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Native_Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Language_Copy", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Lang_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Language", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Language_En", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Native_Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Language_Copy1", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Short_Url", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Expanded_Url", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Url", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Link", newtab)
newtab = New DBContext.TableProperty
newtab.Fields.Add("Post_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Link_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Link_Post", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("List_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Fullname", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Description", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("List_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Create_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("List_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Updating", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("List", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("List_Id")
newtab.Fields.Add("List_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
Me.Add("List_Account", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Query_Id")
newtab.Fields.Add("Query_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Listen_Disabled_View", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Listen_Query", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("User_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Create_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Client_File_Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("App_Url", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Display_Url", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Media_Url", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Media", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Post_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("To_Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Text", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Pubb_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Is_Share", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Reply_To_Post_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Parent_Post_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Hash_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Message_Post", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Network_Id")
newtab.Fields.Add("Network_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Description", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Network", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Place_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Place_Type", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Bounding_Box", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Lat", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Lon", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Country_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Country", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("State", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("County", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("City", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Locality", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Accuracy", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Place", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Country_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Short_Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Long_Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Iso3", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Numcode", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Un_Member", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Calling_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Cctld", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Place_Country", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Plan_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Description", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Per_User", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Follower_Per_User", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Follower_Analysis_Per_User", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Query_Per_User", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Listen_Per_Account", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Auto_Follower_Per_Account", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Price_Month", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Plan", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Post_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("To_Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Text", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Pubb_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Is_Sent", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Hash_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Private_Post", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("To_Account_Id")
newtab.Fields.Add("To_Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Is_Sent")
newtab.Fields.Add("Is_Sent", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Post_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Pubb_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Private_Post_Last", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("To_Account_Id")
newtab.Fields.Add("To_Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Type_Id")
newtab.Fields.Add("Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Post_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Text", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Pubb_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Private_Post_Last_Copy", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Folder_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Download_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Profile", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Description", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Discount_Perc_Month", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Discount_Abs_Month", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Price_Month", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Plan_Ids_Json", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Promo", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Description", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Query", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Place", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Place_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Network_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Folder_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Lang_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Last_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Download_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Archive_Post_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Archive_Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Query", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Start_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Stop_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Status_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Status", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_Result", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Schedule_Task", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Mail_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Mail_Send", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Data_Json", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Send_Data", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Send_Mail", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Post_Code")
newtab.Fields.Add("Post_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("To_Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Post_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Pubb_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Share_Detail", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Post_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Text", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Pubb_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Det_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Det_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Hash_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Share_Post", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Task_Send_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Text", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_Send_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_Send_Result", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("To_Account_Username", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Reply_Post_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Post_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Send_Post", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Media_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Order_By", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Task_Post", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Task_Send_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Begin_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("End_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Repeat_Day", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Repeat_Day_Week_Json", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Range_Time", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Repeat_To_Time", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Repeat_Every_Time", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Task_Scheduler", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Enabled_Task", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Expired_Task", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Debug_Task", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Description", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Repeat_Send_Post", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Send_Max_Day", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Send_All_Post", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Next_Send_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Next_Send_Task_Scheduler_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Next_Send_Post", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_Send_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_Send_Post", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_Send_Result", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Send_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Update_Post_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Update_Post_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_All_Post", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Feedrss_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Feedrss_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Feedrss_Item_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Auto_Post_Active", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Auto_Post_Text", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Auto_Post_Private", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Auto_Post_Filter_Json", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Auto_Post_Last_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Auto_Post_Schedule_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Auto_Post_Schedule_Detail", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Task_Send", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Time_Zone_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Display_Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Utc_Offset", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Daylight_Saving", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Time_Zone", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Email", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Password", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Surname", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Email_Confirm", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Time_Zone_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Session_Json", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("User", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("User_Id")
newtab.Fields.Add("User_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
Me.Add("User_Account", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("User_Id")
newtab.Fields.Add("User_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Alert_Id")
newtab.Fields.Add("Alert_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
Me.Add("User_Alert", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("User_Id")
newtab.Fields.Add("User_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Options_Json", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("User_Option", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("User_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Create_Data", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Amount", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Processed_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Processed", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Plan_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Plan_Month", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Plan_Create", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Promo_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Promo_Month", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Promo_Create", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("User_Order", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("User_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Plan_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Plan_Month", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Plan_Begin_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Plan_Expire_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("User_Plan", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("User_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Plan_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Promo_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Promo_Begin_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Promo_Expire_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("User_Promo", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Query_Id")
newtab.Fields.Add("Query_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Account_Code")
newtab.Fields.Add("Account_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Post_Update")
newtab.Fields.Add("Post_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Account_Username", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Zzz__Query_Account", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Gender_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Place_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Hours_Json", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Hours_Total", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Lang", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Business_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Weeks_Json", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Status_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Zzz_Account_Add_Info", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Account_Follower_Last_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Archive_Link_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Zzz_Account_Elaboration", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Link_Type_Id")
newtab.Fields.Add("Link_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Account_Link_Id")
newtab.Fields.Add("Account_Link_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Updating", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Create_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Analysis", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Excluded", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Zzz_Account_Link", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Profile_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Profile_Related_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Update_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Last_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Follower_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Follower_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Follower_Update_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Follower_Last_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Message_Post_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Message_Post_Last_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Favorite_Post_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Favorite_Post_Last_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Private_Post_Last_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Private_Post_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Det_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Friend_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Friend_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Friend_Update_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Friend_Last_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Analysis_Follower_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Analysis_Follower_Post_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Zzz_Account_Update", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Create_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Alert_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Alert_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("From_Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Alert_Data", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Zzz_Alert", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Account_To_Foll_Code")
newtab.Fields.Add("Account_To_Foll_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Count_Follow")
newtab.Fields.Add("Count_Follow", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Account_To_Foll_Username", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Status_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Update_Status_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Follow_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Unfollow_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Source_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Source_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Source_Description", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Zzz_Auto_Follow_Account", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Query_Id")
newtab.Fields.Add("Query_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Account_Code")
newtab.Fields.Add("Account_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Post_Update")
newtab.Fields.Add("Post_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Account_Username", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Zzz_Query_Account", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Post_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Query_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Text", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Pubb_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Image_Url", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Follower_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Username", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Zzz_Query_Post", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Post_Code", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Post_Text", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Pubb_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Det_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Det_Update", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Share_Det_Update_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Hash_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Zzz_Share_Post", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Trend_Type_Id")
newtab.Fields.Add("Trend_Type_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Trend_Date")
newtab.Fields.Add("Trend_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Value", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Zzz_Trend", newtab)
newtab = New DBContext.TableProperty
newtab.DBGeneratedField = "Id"
newtab.PrimaryKeys.Add("Id")
newtab.Fields.Add("Id", New DBContext.FieldProperty With {.IsDbGenerated = True, .IsPrimaryKey = True})
newtab.Fields.Add("Email", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Password", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Name", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Surname", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Plan_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Plan_Month", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Plan_Expire_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Promo_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Promo_Expire_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_View_Alert_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Session_Json", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Zzz_User", newtab)
newtab = New DBContext.TableProperty
newtab.PrimaryKeys.Add("User_Id")
newtab.Fields.Add("User_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.PrimaryKeys.Add("Account_Id")
newtab.Fields.Add("Account_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = True})
newtab.Fields.Add("Oauth_Consumer_Key", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Oauth_Consumer_Secret", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Oauth_Token", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Oauth_Token_Secret", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Network_Id", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_Rate_Limit_Post", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_Rate_Limit_Share_Post", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Last_Rate_Limit_Search", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Error_Account_Last_Date", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Error_Account_Count", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
newtab.Fields.Add("Disabled", New DBContext.FieldProperty With {.IsDbGenerated = False, .IsPrimaryKey = False})
Me.Add("Zzz_User_Account", newtab)
End Sub
End Class

#End Region

End Class
End Namespace
